TMO0O2/TU16 ~— mo-it-oztuac 





BOl 


bat REMERSBON | SO0280006/TELE7PODRERELIABILITY PROGBOM411  MACYIIOGEDROBETUASBEGUN-77 08:44 BBQE0800 77 ges 
past se 17-JUN-77 09:Se @ 900: 


REM % 
IDENTIFICATION 
PRODUCT CODE: MAINDEC-11-DZTUA-G-D 
PRODUCT TITLE: TMO2-TULE/TE16 DATA RELIBILITY PROGRAM 
DATE CREATED: 21 JUNE 1977 
MAINTAINER: DIAGNOSTIC GROUP 
AUTHOR : R.B. BARNES 
REVISED: MAY 1977 J.G.ADAMS 
OS ROLES PNB OREN SR Ee ees HC 
POUTPRENT IGITAL E GUIPRENT CORPORATION ASSUMES 


NO RESPONSIBILITY FOR ANY ERRORS STMT MAY APPEAR IN THIS DOCUMENT. 


THE ot nd ReSeRIRED IN THIS DOCUMENT IS FURNISHED UNDER 
LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE 
TERMS OF Sich LICENSE. 
IGITAL EQU ty 7 CORPORATION ASS 4 NO RESPONSIBILITY FOR 
Tee USEF REL ABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 
SOPPLIED BY DIGITAL. 


COPYRIGHT (C) 1974,1977 BY DIGITAL EQUIPMENT CORPORATION 


TMG2-TL16/TE16 DATA R IABILITY PROGRAM MACY11 30(1046) 22-JUN-77 08:44 PAGE 2 


CI7UAG.PL1 ~—«1?-JUN-77 09:52 SEG COCe 
TABLE OF CONTENTS 

PARAGRAPH SUBJECT PAGE 
i. 3 
‘- REQUIRE NTS : 
:: fl ere ; 
4.1 on R. 18 
5. TA PA 1 
6. RANDOMIZATION 11 
?. YNAMIC PARAMETERS 1 
E- TCH iB 

. OUTS l 
io. STATISTICS PRINTOUT 8 
oa. 

if: wig™ 8 


apinane Ames a PROGRAM MACY11 30(1046) 22-JUN-77 08:44 PAGE 3 


t 
* 


feud EVALUATION ANG DEBUCGL Eee 


paive THAT CAN 
ene Re eee Us = 


RMINED the OPERA 
AND SETTING OF OCONSOLE Utes. 


STING OF ALL TAPE DRIVE FUNCTIONS 
NG POSITIONING,EOT - BOT 


ee Ae fe Bi were 
RESPONSES S AND 


TED SOMEWHAT INTRINSICALLY 
0 PROVIDE FULL INFORMATION ABOUT 


FOR STATUS ERRORS DATA ERRORS, 
NT MEMORY ADDRESS ERROR 
HE RH OR TMOe. 


DURING A TEST CYC 
POSITION ERRORS. WORD C 
WHEREVER APPLICABLE AS 


RS 


REQUIREMENTS (HARDWARE ) 


ANY PDP-11 PROCESSOR - WITH OR WITHOUT HARDWARE SWITCH REGISTER 
8K OF CORE 


TELETYPE 

. TMQe TAPE CONTROLLER 

1 TO 8 MAG TAPE DRIVES 
. MASSBUS CONTROLLER 


wc wD 
7 . . 


LOADING PROCEDURE 


USE STANDARD PROCEDURE FOR LOADING BINARY TAPES 


SEG 0002 
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4. STARTING PROCEDURE 


THERE ARE FOUR (4) STARTING ADDRESSES THAT MAY BE USED: 


A. 200(8): eee th RTE te NTERED FROM on PERE ‘rom 


oO 
. 


Pee ath Pleat i Say nae 


aia, reroncee sau pales 
OCTAL AND be MUin THE sia 


STION MARK ( D Is 
gir 7 ye Ke} 
HE QUES rt 


ra ee 
ST on Fae Etat ick LIBITS. 
a 15 oe 


)_ CHARAC moet oh REQUIRES LOSRCTER” ie Piet (6). 
LEADING i 2 CHPRNTNATED 


. 204(8): ats ADORESS SHOULD BE USED Ary | A RESTART 
OF THE PROGRAM 


T 
) WILL NOT Se OVERWRITTEN 
UNTI 


g AR 
3 


240(8): THIS IS 


300(8): 


T I 1S 
p LIST TS 
NUMBER NSTTY TY, FORMAT RECORD COUNT, 
CHARACTE COUNT ATTERN, TAPE MARK, AND 

INTERCHANGE REA 


38 


HAT ALL STATISTICS WILL BE RETAINED. 


SEG 0004 
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REGISTER START: 


VECTOR ADDRESS: 


DRIVE NUMBER: 


SLAVE NUMBER: 


THE FOLLOWING IS AN EXPLANATION OF THE INITIAL 
START (200 OCTAL) REQUESTS AND RESPONSES: 


ie TrenteeT Hee Meese Ge FOR TH ut ta 


REGISTER (CS1) AS A Stk Biel UNIBUS ADDRESS. 


THE RESPONSE FOR THIS tine} 
IS TO ENTER Le ial T VECTOR ADORESS 
USED BY THE RH AS A THREE (3) DIGIT ADDRESS. 


THE DRIVE NUMBER (MASSBUS er at 
OF THE TMO2) IS ENTERS AS ONE 
AL _CHARACT T BE WITHIN THE LIMITS 


WITHIN THE LIMITS OF O THROUGH 7. 

WHEN THE NUMBER HAS BEEN 

ENTERED AND IS LEGAL, THE PROGRAM TESTS 

FOR THE OF A OF THAT 

NUMBER. io HE SLAVE IS AVAILABLE 

A PRINTOUT OF 7 CHANNEL. IF APPLICABLE, 

AND ITS SERIAL NUMBER ({N BCD) 

WILL L BE 9 AscIsT OPERATOR 

N ING TY ITY, AND FORMAT 
CHECK IS MADE FOR THE PROPER SETTING 


NEEDS. as any AS EIGHT (8) SLAVE 
OES AVE BERS THe R RESPECTIVE 
ie Neti ar seinen 
IN ANY ORDER. THE INFORMATION FOR 
EACH ENTERED IS L INTO A 

OR REFERENCE IN TES 


4 

T WILL TERMINATE 
ENTRIES AND CONTINUE TO THE NEXT 
PARAMETER. IT SHOULD BE REMEMBERED 
THAT AT LEAST ONE SLAVE NUMBER REGUEST 


SEG 9005 
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eT FATE ED we IF THE FIRST 


D TO BY A CARRIAGE 
RETURN, THEN THE REQUEST WILL BE REPEATED. 


ser: SAUD EER UF REECE 'S  , 


a ~~ rom THE 


OPERATING DENSITY EO te Ar Suave wis TYPE TYPE 


A. 0 = 2008PI, NRZ1 
8. 1 = SS6BPI, NAZI 
0: 5: - Nast 
E. 4 = 1600BPL, PE (9 CHANNEL ONLY) 
PARITY: THE PARITY REQUEST IS RESPONDED TO BY ONE (1) 
OCTAL CHARACTER AND MUST BE EITHER O OR I. 
A. 1 = EVEN PARIT 
B. 0 = ODD PARITY 
FORMAT: THE FORMAT REQUEST IS RESPONDED 
TO BY TWO (2) CHARACTERS 
AND SHOULD BE AS FOLLOWS 


araee, NORMAL (TWO FRAMES PER WORD) 
FOUR FRAMES PER WORD) 
IX 


A 
B. 
RECORD COUNT: THIS REQUEST iS RESPONDED TO 


CHARACTER COUNT: THIS RESPONSE IS E 


S 
ORDS PER BLOCK) USED IN READ AND WRITE CYCLES 
a SAME BLOCKING IS USED ON ALL AVAILABLE UNITS. 








TMO2-TUL6’TE16 DATA RELIABILITY PROGRAM MACY11 30(1046) 22-JUN-77 08:44 PAGE 7 
DZTUARG.P11 17-JUN-77 09:Se 


PATTERN NUMBER: THIS RESPONSE IS A TWO (2) CHARAC 
NUMBER WITHIN THE LIMITS OF O T 
R ENTERED WILL CAUSE A 


THE 
IN BOTH wat TE, 
THE SELECTION OF DATA PATTERN ZERO (0) HAS A 
SPECIAL USE. PATTERN NUMBER ZERO (0) WILL 
IN AT THE HIGH SPEED PAPER 
PATTERN DESIRED. 


A PROGRAM 
ANY 56, geome 


TAPE MARK: 


: NOT 
RECORD INCREASES 

RECORD; IN OTHER OF 100 
RECORDS WILL HAVE T MARK AS RECORD 101. 


INTERCHANGE READ: THIS REQUEST IS RESPONDED TO BY 
A SINGLE CHARACTER INPUT OF EITHER 
ONE (1) OR ZERO (0). 
WILL Cau ALL READ TQ BE DONE IN 
THE INTERCHANGE MODE. A ZERO RESPONSE 
WILL CAUSE READING IN NORMAL MODE. 


TMO2-TU16/TE16 DATA RELIABILITY 
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SINGLE PASS: 


STALLS: 
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oe 5 eee IS RESPONDED TO BY EITHER A THe {}2, 
TO 70 BEET OPpeD. mevER THE Le best av BVATLAGLE DR 


REACHES wie . 
ALLOW C MO NOUS RRTNTNG. FaROUEH OU tIPLe PASSES. 
TO OFS ANT AT END OF PASS, PRESS CONTINUE, 
RESTART AT THE CONSOLE. 


THE STALL REQUESTS ARE RESPONDED TO BY “ SIX (6) 
CHARACTER OCTAL NUMBER WITHIN THE LIMITS OF 1 
THRU 177777. ZEROS ARE NOT REQUIRED "AND 
AN ENTRY OF chee 


) CHARACTERS SHOULD 
a ak RETURN. EACH INCREMENT 


_" 


READ: THE TIME DELAY BETWEEN EACH RECORD READ 
WRITE: THE TIME DELAY BETWEEN EACH RECORD WRITTEN 
TURN AROUND: TIME DELAY BETWEEN CHANGES OF 


TAPE DIRECTION (FORWARD, TO REVERSE,ETC. ) 
AND BETWEEN BLOCKS. 


FIXED PARAMETERS: IT SHOULD BE NOTED THAT ALL ea EXCEPT 


FOR THE SLAVE DESCRIPTION VALUES (SLAV 
F T) HAVE NOMINAL 


NHMBER. Penaiy 

VALUES ALREADY ST 

AS EA EACH PARAMETER TER REQUEST (PATTERN NUMBER, RECORD 
CHARACTER TAPE MARK AND munTeDS IS TYPED. 

oo CN ERESENT ST REb UA VAL IS ALSO PRIN TED. 

IF THESE VALDES NEED NOT BE CHANGED, SIMP 

TYPE A CARRIAGE RETURN NO 

CHANGE WILL BE MADE. EACH START OF THE PROGRA 

AT 200(8) WILL SHOW THE CURRENT VALUES OF oAESe 

PARAMETERS AS PER THE LAST ENTRY. WHEN A 

FRESH LOAD OF THE PAPER TAPE IS DONE, THE 

PARAMETERS WILL REFLECT THE FIXED VALUES STORED 

IN THE PROGRAM. 

A. RECORD COUNT = 100 

B. CHARACTER COUNT = 1200 

c. PATTERN NUMBER 

E. INTERCHANGE READ = 0 

F. SINGLE PASS = 0 

G. READ STALL = 1 

H. WRITE STALL = 1 

1. TURN AROUND STALL = 1 


SES 0008 
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SAMPLE START AT 200(8): 
THE FOLLOWING IS A SAMPLE OF THE 
PRINTED REQUESTS AND THEIR RESPONSES. 
RE NCLOSED IN PARENS FOR 
CLARITY ONLY AND (CR) MEANS CARRIAGE RETURN 


LOAD ADDRESS 200(8), SET CONSOLE SWITCHES, PRESS START SWITCH: 


bet eet NEW= WILL BE TYPED FIRST IF THE SOFTWARE 
E ORIVE MEF ECTED (REFER TO SECTION 8 FOR OPERATOR OPTIONS). 

CONDE TIONS TR OCTAL 

REGISTER START=172440( 172440) 

VECTOR ADDRESS=224(CR) 

DRIVE NUMBER (4) 

SLAVE NUMBER=(5) SN: S009 

DENSITY=(3) 

PART TY=(0) 

FORMAT=( 14) 

SLAVE NUMBER=(2) 7 CHAN SN: O02e2 

DENSITY=(2) 

PARITY=(1) 

F =(15) 

SLAVE NUMBER= 

RECORD COUNT=100 (500)(CR) 

CHARACTER COUNT=200 (38)7(7)(CR) 

PATTERN NUMBER=1 

(6) (OR) 

TM=(0) 

INTERCHANGE READ=(1) 

SINGLE PASS=(0) 

ENTER STALLS 

READ=1 om 

DRI TESI 


(CR) 
TURN AROUND=1 (3000) (CR) 


THE CONSOLE HES ON SLAVE FIVE (5) THEN TWO (2) 
ONE B A PA 

PER RECORD AND 
FOR MINIMUM ON 
SECONDS ON TURN AROUND. 


NO TAPE MARKS WILL BE WRITTEN AND ALL READING 
WILL BE DONE IN INTERCHANGE MODE (MAINT MODE 0001). 


WRITE. AND APPROXIMATELY .75 





Tee rue tele 


OZTUAG.P11 


4.3 
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AUTOMATIC MODE OPERATION 


IF THE PROGRAM IS LOADED N C (CHAIN) MODE THE AUTO 

RET eT OED WITH A SUTTCH oF oe HAT SN ERROR 

Se TR OREO TERVENTION {¢ RE 

#* EXCEPTION: IF LOADED VI HA THE PROGRAM WILL NOT TEST 
SLAVE 0 ON T a E DRIVE. 


Bf 8 


DATA PATTERNS 


THERE ARE FIFTEE 


TA PATTERN GENERATORS STORED IN CORE 
MAY BE SELECTED. T UNIQUE 
0); SELECTION OF PATTERN ZERO(O) 

PAPER TAPE BE 

TAPE CONTAINS 


A 
: 
H 


IS 
TAL 
IN 


: 
2 
us 
3 

= 
sR 
2 


g 
g 
2 
a 
3 
= 
c 
mR 
£5 
3 
s 


WRITE BUFFER (4000 CHARACTERS) 
THAT _ANY 
1 d ” alii ) 


aR 
= 
a 
Be 

wer 
oR 
8 
g 


io 
= 
oO 
Fs 


C- 
C 


as 
S 


REDUNDENCY CHECK 
NST THE CRC AND LRC 
N NRZI READS OR WRITES. 

T A 


. 
a 
BF 


THE FOLLOWING IS A LIST OF THE DATA PATTERNS AVAILABLE: 

DATAO: EXTERNAL INPUT THRU HIGH SPEED READER (SEE DTC) 

DATAl: ALL ONE BITS IN ALL CHARACTERS 

DATAe: ALL ZERO BITS IN rit CHARACTERS 

harag® hae WALKING FROM RIGHT TO LEFT IN A FIELD OF ZEROS 


A 
: A IGHT TO LEFT IN A FIELD OF ONES. 
DATAS: AT ONE AND ZERO BITS IN EACH CHARACTER 
> AL TING ZERO ONE BITS IN EACH 


DATAG AND C R 

DATA7: SAME AS DATAS BUT WITH EVERY OTHER CHARACTER COMPLEMENTED 
DATAIO: WALKING ONE/@LL ONE _IN ALTERNATING CHARACTERS 

DATAL1: INCREMENTING CHARACTERS 900-377) 

DATAle: DECREMENTING CHARACTERS (377-000) 

DATA13: ALTERNATING CHARACTERS OF ALL ZERO AND ALL ONE BITS 
DATAL4: WALKING ZERO/ALL ZERO IN ALTERNATING CHARACTERS 

DATA1S: AUTO SEQUENCE PATTERN 0,0,-1,-1,-1,9, 


SEG 00:0 
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6. RANDOMIZATION 


THERE ARE THREE (3) VALUES THAT MAY BE GENERATED RANDOMLY 
DATA, CHARACTER COUNT, AND RECORD COUNT. THESE ARE NORMACLY SET TO 
SOME ot PED VALUE BUT MAY BE RANDOMIZED BY SETTING THE APPROIATE 


A. RANDOM DATA: (CONSOLE CH Bone 8) 


C 
Daten B 5 fete Cape in ms 
TO BE RETAINED IN CORE. A RESTART AT LOCATION 


Gata 10 THE FIXED Pat ee a 


ane 


T. 

DATA IS GENERATED AS RANDOM 

SION OF RANDOM CHARACTERS IS ALWAYS 
RANDOMIZATION. 

GENERATE ONE TAPE REEL 


I POINT, AND 
Y TESTING. IN MULTIDRIVE SYSTEMS THE SAME 


THER I 
EACH AVAILABLE UNIT’ IN THE 
ORDER THAT THEY WERE ENTERED, BEFORE BEING CHANGED. 


B. RANDOM CHARACTER COUNT: (CONSOLE SWITCH 7) 
BER RECORD T0 BE ERITTEN ON EACH BLOCK CYCLE. 
THE SATE NUMBER’ OF CHARACTERS PER RECORD IS 
WRITTEN OR READ ON EACH AVAILABLE UNIT BEFORE 
ING CHANGED. RESETTING SWITCH 7 HOLDS THE 
LAST VALUE GENERATED. 


C. RANDOM RECORD COUNT: (CONSOLE SWITCH 6) 
GENERATES A DIFFERENT N ee OF RECORDS 
FOR EACH BLOCK OF DATA WRITTEN OR READ ON 
EACH BLOCK CYCLE. THE SAME NUMBER OF We eoRDS 
IS WRITTEN OR READ ON EACH AVAILABLE UNIT BEFORE 
Bene aS anced. RESETTING SWITCH & HOLDS LAST VALUE 
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ve DYNAMIC PARAMETERS: 


THE Mh, Ma 2 EM ora we ARE CONSIDERED TO BE DYNAMIC 
CHANGED WHILE THE PROGRAM 


22-JUN-77 08:44 PAGE le 


IS 


RUNNING BY TYPING. A CONTROL C Croc ER A AT_THE 125 bs 
th BA HILL RESPOND 10. THE CONTROL 
IN WILL RESPOND 19. THE CONTROL % OFNPUT 


Tn we A’ REQUEST FOR ee STALL 
T WERE ENTERED 


THE LAST ee 


WILL BE PRINTED AS THE "Soren VALUES AND MA 
VALUES OR BY 


LEFT UNCHANGED 


THE YOZZLE gis Wy: ALSO DYNAMIC AND_CAN BE CHANGED 
TRL _C WHILE DOING A YOZZLE. A YOZZLE STALL 
INTED AND SHOULD BE RESPONDED TO WITH 


SEG O0le 
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8. CONSOLE SWITCH SETTINGS 


IF THE DIAGNOSTIC IS RUN ON A CPU WITHOUT A SWIT 


The Gen The se Sich STS HEY Ue ‘as H REGISTER. 


ple DOES NOT EXIST OR I 
ano. A CONTAI CONTAINS. ALL (177777) THEN THE SBE TUARE SuITCH 
REGISTER (LOC. 176) 1s USED. 


CONTROL : 


THIS PROGRAM ALSO SUPPORTS THE DYNAMIC LOADING OF THE SOFTWARE SWITCH 
REGISTER (LOC. 176) FROM THE TTY. THIS CAN BE ACCOMPLISHED BY 
DOING THE FOLLOWING: 


1) TYPE CONTROL G ctor THIS WILL ALLOW THE TTY TO ENTER DATA INTO 
LOC. 176 AT SELEC POINTS WITHIN THE PROGRAM. 


A) THIS PROGRAM WILL PROCESS THE <fG> EITHER IN FLAG MODE OR INTERRUPT 
DEPEND ON WHERE_IN THE PROGRAM THE <?G> IS EXCEPTED. 
THE PROGRAM WILL SERVICE THE INTERRUPT ONLY WHEN T 

PRIORTY IS LOWERED TO ALLOW THE TTY TO INTERRUPT. 


2) THE MACHINE WILL THEN TYPE: iene (XXXXXX IS THE OCTAL CONTENTS 
OF THE SOFTWARE SWITCH REGISTER. ) 


3) AFTER THE ’’NEW=’’ HAS BEEN TYPED THEN THE OPERATOR CAN DO ONE 
OF THE FOLLOWING AT THE TTY: 


A) pis | A NUMBER TO BE LOADED INTO LOC. 176 FOLLOWED BY A <CR>. 
(ONLY NUMBERS oe O-7 WILL BE ACCEPTED AND ONL’ 6 NUMBERS 


WILL BE ALL 
IF A <CR> IS THe FIRST KEY DEPRESSED THE SOFTWARE. SWITCH 
REGISTER CONTENTS WILL NOT BE CHANGED. 


B) IF A CONTROL U <fU>» IS DEPRESSED THEN THE PROGRAM WILL SEND YOU 
BACK TO STEP e. ; 


THE CONSOLE SWITCHE RE US USED TO SET UP THE TEST CYCLE 
DESIRED. TO VALUES, AND TO CONTROL ERROR 
RESPONSES. THE SWITCHES AES SHOULD BE'SET IN THE DESIRED 
MANNER BEFORE PRESSING THE START SWITCH BECAUSE THEY 

ARE ALL. DYNAMIC WILL PROGRAM IN ANY 
CONFIGURATION. ALL SWITCHES SET TO ZERO(O) IS NORMAL. 


SW1S:  1=STOP ON ERROR 
(100000) 0=CONTINUE ON ERROR 


SWi4:  J=PRINT READ/WRITE STATISTICS 
o40000)0=D0 NOT PRINT STATS 


SWi3: 1=sD0 NOT CHECK DATA ERRORS 


oe 
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(020000) 0=CHECK DATA ERRORS 
TATUS ERRORS (NOR CLEAR THEM IF THEY DO OCCUR) 
“oi Ba001b=eHECK WRI status 


at : Be ee ATUS ERRORS (NOR CLEAR THEM IF THEY DO OCCUR) 


a0: peber Pin PRINT ANY ERRORS (EXCEPT CATASTROPHIC ERRORS) 


Teléconb=o0 WO AI 


SWB : TE RANDOM DATA 
(004000) FIXED DATA 


SW? : 1=GENERATE RANDOM CHARACTER COUNT 
300300 )D2USE FIXED CHARACTER COUNT 

Sid6 : TE RECORD COUNT 
7060100 )B=U8eD FINED CORD COUNT 


SWS : 1=YOZZLE ON CURRENT RECORD 
(O0G040)0=00 NOT YOZZLE ON RECORD 


Pinan 8 SPICER 


Sid3: 1=D00 NOT READ FORWARD 
7000010) D=READ FORWARD 


SWe : 1=D0 NOT READ REVERSE 
(000004) 0=READ REVERSE 


Sl: 1=READ FORWARD FIRST 
*pobo02  D=READ REVERSE FIRST 


SHO: 1=00 NOT WRITE 
‘000001 )O=WRITE 





COe 
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SEG 0015 
SWITCH EXPLANATION AND EXAMPLES: 


SWO-3: THESE SWITCHES ARE USED TO CONTROL THE SEQUENCE 
TIONS ON EACH AVAILABLE 


OF 

es: EP fa ser 

WILL I WRI AVAILABLE 

UNI LIS e rot eee Seat The QUENCE 

a gPETaT Y UNTI ey Te toe oN ¥ 

Pag he ty iat That tty P Te HAVE 
EOT, AT WHICH TIME ESTING IS he cued” ON ALL 

AVAILABLE UNITS. 

EXAMPLES: 0-3 


A. SWO=0,SW1=0,SW2e=1 , SW3=1 
WRITE ONLY K RECORDS OF Y CHARACTERS 


a BITE’ THEN BRCKSPACE AND READ FORWARD x RECORDS 


C. SWO0=0,SW1=0, SW2=0, SW3=1 
WRITE THEN READ REVERSE X RECORDS. 


D. SWO=0,SW1=0, SW2=0, SW3=0 
WRITE THEN READ REVERSE AND READ FORWARD X RECORDS 


“ SATTe’ PEN -BRCKSPACE” AND READ FORWARD THEN REVERSE 


F. SWO0=1,SW1=0, SW2=1,SW3=0 
READ TAPE FORWARD’ X RECORDS 


G. SWO=1,SW1=0,SW2=0, SW3=1 
READ +BPe REVERSE X RECORDS 


H. SWO=1,SW1=0, SW2=0, SW3=0 
READ TAPE REVERSE’ THEN FORWARD 


1+ BERG TAPE FORWARD’ THEN REVERSE 
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Sw: SWITCH FOUR (4), WHEN SET TO A ONE (1), WILL 
CAUSE ANY DATA RELATED ERROR TO BE RETRIED. 
THE WRI ISTS OF IT Ne THE RECORD 
IN T ON T 4) TIMES, IF 
FOUR (4) TS RE 
REC IS CONS D RS RECOV Br A TAPE 
ci Repeats 1g rare 8 SxP ER 15 
DONE, A Spor 1S 


AT THIS BLOCK AND RECORD NUMBER Ao A SECOND 
f 
AND 


RETRY T F 
SI neSeree ne Reciah cit UE fe ciened 
a NOTIFICA ie S STING IS 
F (8) at OTs Ane 

BIL be 


Be ERO 
THe REA a Pat ae THE oe 
: 
re (IE: Gane ch ee oo THE Dr THe, RETRY. SCHEME 
IS NOT On A AE SGAGE 15° PRINTED 
Sus: SWITCH FIVE (5S) WHEN SET DURING A 


Tires aa, 


REREADING THAT RECORD. THIS TAPE MOVEMENT 


A ee a as 


YPING CONTROL C 

THE EXECUTION OF 0 OND NG 
TO THE PRINTED T WITH A a's x ried 
DIGIT VAL 0 STALL IS PRESET 


TOA VY OF N THE 
PREVENT EXCE EXCESSIVE TAPE WEAR, BUT MAY BE 
SET TO ANY VALUE THROUGH THE TELETYPE. 


SWe-E: ie Bara Bb (3) ed ie lh RANDOMIZATION 


AT oaNY mii, * THE ACTUAL CHANGE 
WILL TTR PLACE BETWEEN BLOCK CYCLES. 


SWS: ate HONING te o) ae ee Wen 9eTe WILL Anda ALL 
NBO OF st CURRENT BLOCK ao ATESTING 


THe F 
WILL BE RESUMED AT A BLOCK COUN 
ONE (1) WHEN ALL UNITS HAVE RERCHED BOT. 


Meee SRE eR 
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SW10-13: THESE SWITCHES ARE USED TO CONTROL THE 
ERROR OL INE Toe DONE ON THE TAPE 
OPERATION DESCRI BY SWITCHES 0-3. 
A. neg TEN oy WHEN SET TO A ONE 


WILL DISALLOW ANY ERROR PRINTOUTS 


On Tig SPERAT]ON IN Priest, CATRG OPH 
STILL OUR, fey HLT AURILARLE gt 


B. ITCH ELEVEN (11) WHEN SET TO A ONE 
ILL DISALLOW THE CHECKING FOR STATUS 
ERRORS ON READ 


(FORWARD OR REVERSE) OPERATIONS. 

C. SWITCH TWELVE (12) WHEN SET TO A ONE 

WILL DISALLOW THE CHECKING FOR STATUS 

ON TE OPERATIONS. 
D SWITCH THIRTEEN (13) WHEN SET TO A ONE 
DI OW THE CHECKING OF READ 

DATA. THIS SWITCH HAS NO EFFECT ON 

STATUS CHECKING. 
#*NOTE THAT WHEN SW11 OR 12 ARE SET, NOT ONLY ARE ERRORS NOT CHECKED, BUT THEY ARE NOT CLEARED EITHER. 
eet hor at CAUTION TO ASSURE THAT OPTS B a NOT UNEXECUTED DUE TO UNCLEARED ERRORS. 
####D0 NOT SW 11 OR le TO A ONE (1), ING A RETRY SEQUENCE. 

SW14: SWITCH FOURTEEN (14)WHEN SE ILL 


Al 

1) 
a oriata we a tnt 
CYCLE. THE STATISTICS PRINTED HE NUMBER OF BITS 
DROPPED CKED NUMBER ' 


OR PI THE 
ERRORS, AND DATA ERRORS. 


Swis: SWITCH FIETEEN (15) WHEN SET TO A ONE, 
WILL HE PROGRAM TO HALT ON ANY 
ERROR DETECTED BY THE OPERATION IN PROGRESS 
IF BOTH SWITCH TEN (10) AND FIFTEEN (15) 

T, THE ACTUAL ERROR DETECTED WILL 

NOT BE PRINTED BUT W LL CAUSE A HALT. 
IF SWITCH TEN (10) IS RESET BEFORE PRESSING 
CONTINUE. THE ERROR WHICH CAUSED THE HALT 
WILL BE PRINTED BEFORE TESTING IS RESUMED. 


£¢%¢¢PROGRAM HAL TS#eeee 


#e0lF 7 SOF TWARE purr REGISTER s, USED AND THE PROGRAM 

HALTS THEN THE OPERATOR CAN PRESS A <tG> CONTROL G BEFORE HITTING 
ONTINUE. THIS WILL aA CH re OPERATOR TO ENTER DATA INTO 
THE SOFTWARE SWITCH REGIS 


- 
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9. ERROR PRINTOUTS 


THERE eRe THREE TYPES ERROR PRINTOUTS MADE € BY tebe 
ea ira igs taped 

re PARITY T ON THE FIRST L LINE, AND itt 8 BLOCK NUMBER, 

RECORD MUMBER, RECORD § ad AND ERROR TYPE ON’ THE SE 

A. OPERATION ERRORS: 


THESE ARE ERRORS WHICH CAN OCCUR AS A 

DIRECT RESULT OF A TAPE OPERATION. 

1. READ/WRITE STATUS ERRORS: THESE ARE DETECTED BY EITHER THE TMO2 
ITSELF OR BY THE MASSBUS CONTROLLER. 
ALL STATUS E S WILL BE REPORTED. 


2. TAPE POSITION ERRORS: THESE ARE INDICATED BY AN INCORRECT 
eoe™ OR REWIND OPERATION Et a 


ALSO BE COUNTED pit 
TAPE POSITION RA ment HE OROER T ERRED. 


Borceesion Tee A NOTIFICATION I PRINTED 
(B60 RECORD) AND XT TWENTY FIVE (eS) HARACTERS 
SK BEF ORE ING IS RE . IF THE 
BAD RECORD CONDITION OCCURS THREE (3) TIMES IN ONE 
RECORD, THE REST OF THE RECORD IS SKIPPED, DOWN ae: 
TO THE LAST TEN (10) CHARACTERS WHICH WIL{ BE 
CKED. THE SKIPPING AND RESUMPTION OF CHECKING 
WILL ONLY BE DONE ON RECORDS WHICH ARE LONG 
ENOUGH TO ALLOW IT. 





a — > 
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C. CONDITION ERRORS: (CATASTROPHIC) 


THESE PRINTOUTS REFLECT THE Ld Ay THE TAPE SYSTEM 
ogee ie reagan 


1. EOT: She Sasi i Ae Aa ee tp 


ep RNS ned - arene” * 


TESTING WILL BE RESUMED ON 


2. ILLEGAL BOT: WHEN A cet ere DURING 
WRI RATION, AN ERROR 
“PRIMED A HALTED: THIS IS 
y cat NG MAY BE RESUMED 
By PRE SS1NG RESTART IS 


3. NO INTERRUPT RETURNED: EACH TAPE OPERA 4a SHOULD 


INTERRUPT IN 
THE CPU. IF_NO_INTERRUPT IS RETURNED WITHIN 
THE APPROPIATE TIME, AN ERROR IS PRINTED. 


4. NO MEDIUM ON ON IS ATTEMPTED, 
te E inbe ds. CHECKED FOR POL ‘- IF IT IS'NO 
SET THE PROGRAM "SropPeD. 


fEstine MAY Ye RESUMED en PRESSING CONTINUE. 


5. NO BOT ON REWIND: AS 2A EACH SLAY SLAVE IS REWOUND A CHECK 
8 ESTABLISHE SURE OT BOT S Re Oet ISON” CORPLETION OF 
ES bial edits ib 1 tll 
WILL rage DRE Ce Con INUE TO RESUME TESTING. 


&. POSITION ERROR: IF POSITION IS LOST DURING A RETRY 
A MESSAGE IS PRINTED THE TAPE RE 
AND D FROM St ING UNTIL ALL ARE’ 
RESTARTED AT BLOCK ONE 


7. BAD TAPE OVERFLOW: IF 20(8) BA0 TAPE SPOTS ARE FOUND, 
A MESSAGE IS PRINTED, THE TAPE REWOUND, 
AND REMOVED FROM TEStING UNITLL ARE 
RESTARTED AT BLOCK 


@. HARD READ ERROR: IF ANY HARD READ ERROR IS ENCOUNTERED 
NG A RETRY, A MESSAGE IS PRINTED 
REGARDLESS OF THE SETTING OF SWIO. 


9. NON-RETRYABLE: IF ANY NON-RETRYABLE ERROR IS ENCOUNTERED, 
MESSAGE IS PRINTED REGARDLESS OF THE SETTING SF SWid. 
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D. EXAMPLES: 
GLOSSARY: 


HO0e2 


SEG 0020 


BN = CURRENT BLOCK NUMBER 
RN = CURRENT RECORD NUMBER 

RS = RECORD SIZE, IN FRAMES 

WE = WRITE STATUS 

RE = READ STATUS ERROR 

SE = SPACE ERROR 

TM = TAPE MARK 

F = FORWARD 

R = REVERSE 

CS1 = RH/TUJ6 CONTROL REGISTER 
Wc = RH WORD COUNT 

BA = RH ADDRESS 

FC = TULG6 COUNT 

CS2 = RH CONTROLLER STATUS 

DS = TU16 DRIVE STATUS 

ER = TU16 ERROR REGISTER 

AS = ATTENTION Y 

CK = TUIL6 CHECK CHARACTER 

DB = RH DATA BUFFER 

MR = TUI6 MAINTENENCE REGISTER 
DT = TUI6 DRIVE TYPE 

SN = TUL6 SERIAL R 

To = TUI6 TEST CONTROL 

*F = DATA FORMAT 

#P = PARITY 

*D = DENSITY 

#PATRN = DATA PATTERN NUMBER (R = RANDOM) 


a — -=- 
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ER REFLECTS THE BAD TRACK. 
1 #0 4 #P O #F 14 *PATRN 1 


1 ON TMO2 O WAS 


Oouucote 
merece 


ngewe Sr 
SY geEStes 


= 200 #WE 


#SLAVE NO. 
“SO #RS 


ow 


a 
ww 
we 8s 
4 —A2aae i - 
x Sucre i 


oma 


Loree 


DRIVE NO. 2 #SLAVE NO. 3 #D 3 #P 1 #F 14 #PATRN 3 


x 
~ 
wk 
Oo 
cu 
x 
A 
wn 
~ 
Fe] 
—_ 

& 
BX «co Ff 
xu OO 1 
Neri es) 
N22R8 8 

=O 

Bounwox 
* OOQuUI ZO 
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EXAMPLE 3: IN THIS EXAMPLE, THE HEADER IS THE SAME AS 
ph eS eo ER " EXCEPT Vg onan ee TYPE 
TION. ei 1§ NORMAL FOR THE Sy THE eySTEM 

TO DETECT AN ERROR IN THE FORWARD AND 

REVERSE DIRE TION AT THE SAME RECORD. 

REMEMBER THAT IN REVERSE OPERATIONS THE 
IS COUN THAT 


RE CORD TEN (10) yuIE's 3H IN 
EE eaPUP vito th Blt Pid wo 


DRIVE NO. 2 *#SLAVE NO. 3 #0 3 #P 1 #F 14 *#PATRN 2 
*BN 12 #RN 10-25 #RS 20 *RE F 
kad 144270 


19 
ER 400100 
CRC 767-777 
EXAMPLE 4: IN EXAMPLES 2 AND 3 THE READ OPERATION 
RESULTED IN BAD STATUS, HOWEVER THE 
DATA ASSOCIATED WITH THE OPERATION WAS 
NOT BAD (OR WAS NOT CHECKED: SW 13=1). 
THIS E (4) SHOWS A PRINTOUT REFLECTING 
R READ STATUS ERROR ACCOMPANIED BY BAD 


wo 
< 


A IN CHARACTERS FOUR ( 


4) 
ORIVE NO. 2 *SLAVE NO. 3 #D 3 #P 1 #F 14 *#PATRN 2 
#BN 12 #RN 10-25 #RS C0 *#RE F 

es ie 
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EXAMPLE S: Hts EXAMPLE SHOWS A READ DATA ERROR 
H OCCURRED, WITHOUT AN ACCOMPANING 
TUS ERROR, WHICH RESULTED IN A BAD RECORD. 


DRIVE NO. 

ang? 100 #RN 

G 11111111 

B 00000000 

CN 1 

G 11111111 

B og000000 

CN 2 

G 11111111 

Jy women 

G 11111111 
SS mene 


wrinttte 
00000000 


ah #SLAVE NO. 1 #D 4 #P A a 14 #PATRN R 
66-200 #RS 5000 “DE F 


00 
BAD RECORD 


EXAMPLE 6: THE FOLLOWING EXAMPLE SHOWS THE 

RESULT OF A SPACE OPERATION THAT 
SHOULD HAVE SPACED REVERSE OVER 
AN ENTIRE 100 RECORD BLOCK BUT 


WHICH TERM 
RECORDS. 


DRIVE NO. 
#BN 3 #RN 
ERR AMT 40 


INATED AT THE END OF 40 
LEAVING A POSITION ERROR OF 40 


2 *SLAVE NO. 6 #D 2 #P 0 #F 14 
100-100 #RS 1000 #SE R 


SEG 0023 


TMO2-TU16/TE16 DATA a tt PROGRAM MACY11 30(1046) 22-JUN-77 08:44 PAGE 24 


OZTUAG.P11 17-JUN- SEG 0024 


EXAMPLE 7: THIS EXAMPLE REFLECTS AN a Ae 
ite wat Ne TAPE 


* “a's BLOCK PER OFT OPTI N RESPONSE 


IS One GREATER THAN THE TOTAL NUMBER OF DATA 
RECORDS IN THE CURRENT BLOCK. 


DRIVE_NO. 1 *#SLAVE NO. 1 #D 2 #P O #F 14 
ae 101-100 *RS 36 *#WE TM 


fam 
Wor 


a 
4 
S 
5 


g 
Z 
a 
a 
+ 


os Saw 


#SLAVE NO. 
2-20 #RS 667 * 


$2 
nui 
2 


2 ue 4 #P 0 #F 14 *#PATRN 6 


2° 
Oe 


DRIVE NO. O SLAVE NO. 2 = xP 0 *#F 14 #PATRN 6 
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pore o Fe pueNe 8 epg gl? RETRY_THE BACKSPACE 
HE’ E OPERATION hey me yi oe 


THE. ERROR WILL BE PRINTED OND THE PROGRAM 
Pet AS aes SaaS 


DRIVE NO. 1 *#SLAVE NO. 1 a 2. - O #F 14 
BN le *#RN 8-64 #RS SOO #SE R 


DRIVE NO. 1 #SLAVE NO. | #0 Z. #P 0 *F 14 
#BN 12 *RN 8-64 #RS SOO #ERASE 


CS1 144224 
CSe 100 
DS 150600 
ER 400 
we 0 

EXAMPLE 10: THIS EXAMPLE SHOWS THE PRINTOUT FROM 
A REWIND OPERATION WHICH DOES NOT HAVE 
BOT SET AT THE END. 
DRIVE NO. 2 *#SLAVE NO. 3 #0 3 #P O #F 14 
#BN 66 #RN 15-20 #RS 1000 
NOT BOT ON REWIND: HALT 

EXAMPLE 11: THIS EXAMPLE THE PRINTOUT MADE WHEN 
THERE IS NO INTERRUPT RETURNED AT THE E 
OF AN OPERATION 
DRIVE NO. 7 #3 NO. 7 #40 2 #P 1 #F 14 
#BN 1 #RN 2S-26 #RS 1200 
NO INTERRUPT 


NOe 
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10. STATISTICS PRINTOUT 


THE PROGRAM THROUGH ITS ERROR CHECKING, IS ABLE TO GATHER CERTAIN 

praristice aout fhe Coe prnntecs OF Ged UAT Un 

ER MBA Agta h gi 
Sone CAT ¢ my 1 On LOST, BAD TAPE OVERFLOW) 

THE ST statist BE PRINT BY SETI TING 

UP 18" THIS ri a set iW ia 3 iB PIG LaRE oe UPON SP RESIND O OF THE 

UNIT; BUT NOT BY SETTING SW 

STATISTICS PRINT EXAMPLE (A HEADER WILL PRECEED THE STATS) 

proPS: 030006450 

PICKS: 10000002 

RETRY: 1 

WTERR: 2 

REFWD: 3 

SOFT: 2 

HARD: 1 

DEFWD: O 

REREV: 4 

SOFT: 1 

HARD: 3 

DEREV: 0 

2 BAD TAPE SPOTS 

0 *BN 1 #RN 2 

1 #BN 1S *RN 100 

## NOTE %# DROPS AND PICKS REFLECT CORE BIT POSITIONS. 
THE FOLLOWING IS A TABLE OF CORE BITS TO TRACK NUMBER. 
TRACK NO. 76539182 
CORE BIT 76543210 

DROPS: DATA BITS DROPPED: PER CORE BIT(SEE NOTE ABOVE) 

PICKS: DATA BITS PICKED UP: PER CORE BIT(SEE NOTE ABOVE) 

WRITE RETRIES 


aie NOT ASSOCIATED WITH BAD TAPE ~. 
STATUS ERRORS 
TATUS 


RE agi M 
F DATA ERRORS WITH NO ASSOCIATED STATUS ERROR . 
REVERSE DATA ERRORS WITH NO ASSOCIATED STATUS ERROR 
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ll. AUTO SEQUENCE 


0 (START AT Pe ie 

BURT a ie Regt MOR i 
NZ ONLY SHIT 

Sa AGI OSeeate Ee & ‘pita Me 

DOWN AND ALL aod FULL EXE I0N OF 

SAMPLE START AT 240(8): AUTO SEQUENCE. 

LOAD ADDRESS 240(8), SET SWITCHES TO ZERO, PRESS START: 


TU16 AUTO SEQUENCE TEST 
ENTER CONDITIONS IN OCTAL 


REGISTER ART = 172400( 172440) 
VECTOR SS = 224(CR) 
NRZ ONLY: (0) 
AUTO CONT: (1) 
THI AN AUTO SE F's WITH THE RH 
AT ab eda0_ ONO a Tatts sf ALL AVAILABLE 
WILL CONTINUOUSLY IN BOTH NRZ AND PE MO 
AS EACH TMO2 AND ITS FOUND, A DIVIDER LINE OF 
ASTERICKS WILL BE PR SHED POLL BY’A PRINTOUT OF THE 
TMOe AND ITS ING TESTED EACH AND 
ITS SLAVES FINI ANOTHER DIVIDER IS PRINTED 
BEFORE TESTING IS RESUMED ON THE NEXT AVAILABLE DRIVE. 
WHEN ALL AVAILABLE HARDWARE HAS BEEN TEST 
A PRINTOUT OF OF SEQUENCE WILL BE AND THE 
PROGRAM WILL EITHER HALT (AUTO CONT = 0) OR RESTART WITH 
THE FIRST AVAILABLE UNIT (AUTO CONT = 1). 





-_-—. 


CO3 
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AUTO SEQUENCE TEST PLAN: 


CYELE, EACH CYCLE MILL GE STARTED FROM BOT ARO CONSIST 
VARIOUS DATA PATTERNS INTENDED TO BE WORST CASE 
POR THAT PARTICULAR 


1. NRZ CYCLE: 


aax (6) (ORD OF ONE 
HOUSAND (4000) CHARACTERS FOR 
Pach OF THE FOUR DATA PATTERNS. 


ALL ONES DATA IN ALL BYTES 
PATTERN 1 10: WALKING ONE/ALL ONE 
PATTERN 14: WALKING ZERO/ALL ZERO 
RANDOM DATA: RANDOM 


2. PE CYCLE: (IF NRZ ONLY = 0) 


SIX BLOCKS OF a se 100) RECORDS 
OF FOUR THOUSAND ( CHARACTERS EACH FOR 
EACH OF T DATA on tines THEN RANDOM 
DATA BLOCKS TO END OF TAPE. 


PATTERN 10: Ne PERG ALL 

PATTERN 14: HK ING 

PATTERN 15: THREE (3) O Ais Mate TWO (2) ALL CHARACTERS, THREE 0 CHARACTERS, 
THEN COMPLIMENT PATTERN. REPEATED FOR A FULL AUFFER 

RANDOM DATA: | RANDOM 
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TUlb/ TEL DATA RELIABILITY PROGRAM 





~ tls be Ree S 5 L 
8.5 = ese eo gis 
Gn 2Bz ate eh “zo Zn ges $35 
SSpteweUerewio kee the gegayese BSS Byte. 
ee pte cee | a 
5 7 <9 pPoBs B pavegeese unc nee. 
; bs scotia tie ane 
a: = ane 5 tet wat eee 
ze cy ee ai Sse y Ewe 
; getibee etd SS 
: aS pope eto oes iS 
. Sq pot teense #8 wee 
4: Sit ee 
= BecPee gs8,885 ie * 
Goueniay fae Se eeies payee: Bok XS 2 
einer newt eat Rte See Waes wos Eo! 


wee Oe + ae Oe 


nk NSS ee eee 
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1344 ; REVISED (446) J.G.ADAMS MAY 1977 L) INTERMITTENT PGM FAILURE 
1345 +46 ON B00 TAPE OVERFLOW 
1346 +46 2)T T EOT 
} :+4G Z)ERRONEOUS ERROR TYPEOU 
1348 +46 4)C MISC INST’S TO 
1349 +46 C MEMORY LISAGE. 
1350 +46 S)ADDED ACT11 HOOKS 
1351 B)FIXED TTY INPUT 
1353 j .SACT11,.SEOP, SCHAIN +46 ACT11 HOOKS 
1364 NCTE m © NOT LIST MACRO CALLS 
1355 “LIST ME ee LIST MACRO EXPANSIONS 
1356 “ENABLE ABS, AMA :44G ENABLE ABS AND MODE °37’ 

Es ;CONSOLE SWITCHES##eteeeeeeee 
1361 :SW1S: 1=STOP ON ERROR 

1366 : O=CONTINUE ON ERROR 

1364 :SW14: 1=PRINT READ/WRITE STATS 
1365 : =D0 NOT PRINT STATS 

1367 ;SW13: 1200 NOT CHECK DATA 

1368 : O=CHECK DATA 

1369 *SW12: 1=D0 NOT CHECK WRITE ERRORS 
1370 : O=CHECK WRITE 

1371 ‘SW11: 1=D0 NOT CHECK READ ERRORS 
1372 : O=CHE CK 

1373 :SW10: 1200 NOT PRINT ERRORS 
1378 : O=PRI 

1376 ;SW9: 1=REWIND TAPE 

1377 : O=00 NOT REWIND 

1378 :SW8: 1=USE RANDOM para 

1386 : O=USE FIXED DATA PATTERN 
1361 ‘SW7: 1sUSE RANDOM CHARACTER COUNT 
1362 : O=USE FIXED CHAR COUNT 
i383 ‘SW6: 1 RECORD COUNT 
i364 : O=USE FIXED RECORD COUNT 
1386 :SWS: 1=YOZ2ZLE ON CURRENT RECORD 
+367 : O=D0 NOT YOZZLE 

1366 :SW4: 1=D0 BOTH READ AND WRITE RETRIES 
1230 O=INHIBIT RETRIES 

1392 -SW3: 1=D0 NOT READ FORWARD 

1393 : O=READ FORWARD 

1338 ‘SW2: 1200 NOT READ REVERSE 

Sap :SWl: 1sRE FIRST 

1397 : ORRERO. REVERSE FIRST 

139€ : 1500 NOT WRITE 

1399 : O=WRITE 
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;TULG/TEL6 REGISTER BITSeeeeeeenese 

p45 514 513 512 51) -10 ;09 ;08 ;07 406 505 40% 503 506 40! :00 ; 
SC ; TRE; MCP; SPR; DNA;PSL;A17;Al6;ROY; IE ;FUN;FUN;FUN;FUN;FUN;GO ; 
) eadooaroodooodonodoodoondooacxxxdoodonedavadoondhnoddond 


in 


| en | 


XXXII XXXII HHH KIMI KKM 


COUNT 

Anata Seni on el caret th 
:DLT; WCE; UPE; NED; NEM; PGE; MXF ; sMDP:OR ;IR ;CLR;PAT;BAI;U2 ;U1 ;U0 ; 
* padooodooodooodooadonodooadooodovadooodooodooodooodoooooodoonxk 


;ATA; ERR; PIP; MOL; WRL ; EOT; SPR; DPR; DRY; SSC; PES; SON; IDB; EOF ; BOT; SLA; 


* padooodooudooadooodonocooadooodonodooodooodonadoondooutrndxnx i 
: CDE; UNS; OPI;DTE;NEF;CS ;FCE;NSG;PEF; INC;DAT;FMT; CNT; RMR; ILR; ILF; 





1 co danodhoadsoodiet ooodbood ieedoacel ectoood sectinoodoondboodk 
; ATTENTION : 
; SUMMARY 

® XXXXXXXKKARRXXXXKKAKAKKKKKAKAKAKK A XAKAAAAKXN XK KAAAAKXXKKH KH KK 
; CHECK 
i CHARACTER 
: DATA ; 
BUFFER : 
dai ode cd ek Co cin adoeadocnd se x 
perve a CH « Bh 


XXXXXXXXXXX XXX XXX XXX HH HAH IAAKK 


Bi, SER EOF 

: RONBER ; 
© XXKHKKKKXXKAANKKKK AK KAN HK KKH HH HH HHH HHH HK IKK HHI KHAKI 
: ACL; FCS; TCW; ENA; SPR; DEN; DEN; DEN; FMT; FMT; FMT; FMT; EVN; SSN; SSN; xSGN, 


T 4 1:8;4 1 :PAR: 4 1 
S aodooodonodoondoondooodosodosadoodooudonndodadaoadoondodadodcdk 


SEG 0031 
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wig ;REGISTER EQUI VSeeeeeeeseees 
144 
1448 900000 RO=%0 
1449 1 R1=% 
1450 Re=% 
1451 R3=%3 
1452 000004 R4Y=%4 
1453 000005 RS=%5 
1454 000008 SP=%6 
1455 000007 PC=%7 
2 000240 =240 
14S8 ; TRAP CATCHERS##eteeeeeee 
1459 000030 .=30 
14680 000030 OeY%é2e TRAP30 
1461 000032 .=32 
1s 009032 000340 340 
1 
1464 
1465 sACT11 HOOK ###eeeeeEHH 
Re 000034 SSVPC=. ;SAVE CURRENT LOCATION CTR 
1468 90004 005072 W SENDAD ;SET LOCATION 46 
1469 0000Se .=S2 
1470 o0000S2 000000 -WORD O ;SET LOCATION Se = 0 
ee 000034 . =SSVPC : RESTORE LOCATION CTR 
14723 
1474 STTY INTERRUPT VECTOR###ee#esHe 
1475 000060 . =60 
1476 O00060 Sante TTINT TTY INTERRUPT HANDLER ADDRESS 
1477 000062 0 
a 
joni ;SOFTWARE SWITCH REGISTER LOC. l76sseeeeeeee 
14Be 909176 .2176 
a 000:7& 000000 SWREG: 0 ;SOFTWARE SWITCH REGISTER 
<3 :START ADDRESS#eeeeeeaee 
1487 900200 .=200 
eH 900200 000137 003026 IMP START sENTER PARAMETERS VIA TTY 
1490 000204 =204 
pe 000204 0900137 003152 IMP STARTC ;USE FIXED PARAMETERS; HOLD DATA 
{984 gooe1 S08887 gisiee cR ROFL ; 
is? 000234 000137 903160 JMP STARTA ;USE FIXED PARAMETERS; NEW DATA 
14 :MAG TAPE INTERRUPT VECTOResseaeeeee 
2496 go0z24 2224 
1§ SOCe24 Seltte MTINT :MAG TAPE INTERRUPT HANDLER RODRESS 
3503; 300ee6 o00340 340 
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l 
1E8s s;AUTO SEQUENCE START###eeeeeee 
tebe 0 
1506 900240 005237 900734 > $NC ASEOF sSET AUTO SEQUENCE FLAG 
150? 00244 900137 003136 IMP STAUT 'GO TO START OF AUTO SEQUENCE 
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138 ;SHORT CONVERSATION RESTART ###eeeee 

1510 .=300 

1511 0900300 nie 014122 INC SCVFL «SET SHORT CONVERSATION FLAG 
1gi¢ 000304 000137 003026 JMP START ‘ENTER SHORT PARAMETER LIST 
1514 000510 2510 

115 . :TUIG/TELG REGISTER EQUIVS#etexeeeet 

1517 000510 172440 Cl: 172440 

1518 O00Si2 172442 We: 172442 

1519 900514 172444 BA: 172444 

1520 000516 172446 FC: 172446 

1521 000520 172450 CS: 172450 

1522 000522 172452 DS: 172452 

1523 000524 172454 ER: 1720454 

1524 O00S26 172456 AS: 172456 

1525 000530 172460 ct: 172460 

1526 000532 1 DB: 1 

1527 900534 172464 MR: 172464 

1528 000536 172466 OT 1 

1529 000540 172470 SN 172470 

1530 o00S42 172472 Ce 172472 

1336 s CONSTANTS ##etttt tte 

{e3¢ SopeNe poase4 +75 el STON GODRESS CRH INTERRUPT) 

1536 50 550580 DVN: 5 OB TveN NUMBER 

1637 Be $5000 UDES: 0 ;UNET DESCRIPTION (PARITY, DENSITY, UNIT, FORMAT) 
1539 popeee 177600 FMCNT: 177600 =: ante (4 - 4000) OCTAL IN tos COMPLEMENT 
1540 000001 PATRN: 1 !DATA PATTERN SELECTOR (0 - 15) OCTAL 

1541 RDCMD: 2 : READ 

bse 000564 TMEX: 0 {TAPE MARK FLAG: 1=TM O=NO TM 

1543 000566 INTRF: 0 31 READ 1=YES O=NO 

1544 000570 900000 SPFLG: 0 *SINGLE PASS 1=YES O=NO 

1545 000572 000001 RSTAL: 1 : ST 

1546 000574 000001 WSTAL: 1 +” T 

1547 000576 000001 TSTAL: 1 : TURN STAL 

1548 000600 952000 YSTAL: 2900 :Y¥OZ STAL : 

1550 ceeded 177776 Beye : 1oo976 : nee 

1551 000606 177570 SWR: 177570 1° SWITCHES 

1552 000610 177560 TKS: 177560 ‘TTY TATUS REGISTER 

1553 000612 177562 TKB: 177562 ‘TTY FrER 

1554 000614 177564 TPS: 177564 iTTY PUNCH STATUS REGISTER 

teep Bones iprees pre; t open iM R STATUS REGISTER 

1235 M022 177552 PRE: 1rpeeS we REAR "Sia PR 

1558 900624 is3bes RENBAS: 1S3be4 RANDOM NUMBER GENERATOR BASE 

1560 900635 909006 RCSAV: | aoa RUE ee chr 

1561 800632 900000 FCSAY: :FRAME COUNT SAVE 





ee 
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1562 
a ;FLAGS AND COUNTERS #242424 #4% 
1565 900634 TINF: p TY FY SUTPOY bbe FL 
1566 TOB: 
1567 bo0640 TB: : i TTY Theat BUFFER 
1568 eee TENPe: 0 Be Srnnce 
127) Bones Moor; OLY F 
187e 000652 ENADOR: 0 ERROR MSG ROORE SS STORAGE 
1254 Dopeee Boe B IBRD RECORD COUNTER 
1575 000660 EOTREC: 0 EOT FLAG 
1576 000662 RTRN: 0 rT RRUUPT RETURN STORAGE 
1577 000664 HORFL: 0 : LAG 
1578 D006 STAL: 0 ‘DELAY STORAGE 
1578 0006 PFLG: 0 ; PRINT F 
1580 000672 MTC]: 0 MAG T CONT REGISTER BUFFER 
1581 000674 UNP: 0 ‘UNIT TABLE POINTER 
1582 000676 TMFLG: 0 ‘TAPE MARK FLAG 
1583 000700 RPCNT: 0 ‘REPEAT COUNTER 
1584 900702 RTCNT: 0 ‘RETRY COUNTER 
1585 000704 L: O : DATA FLAG 
1586 000706 SERFL: 0 :ST ERROR FLAG 
1587 000710 BCNT: 0 ‘BIT COUNTER 
1588 000712 RTYFL: 0 RETRY FLAG 
1589 690714 UPS: : sUNTT INT 
1590 000716 BITS D POINTER 
1591 000720 P: QO *BITS PICKED POINTER 
1592 000722 ERSAV: 0 * ERROR LOC 
1593 00U724 BTFLG: O BAD TAPE FLAG 
1594 0007c6 BTSTF: 0 ‘STATISTIC PRINT FLAG 
1595 000730 BTPT: 0 ‘BAD TAPE POINTE 
159% 000732 ERTFL: 0 ‘ERASE FLAG 
1597 900734 ASEQF: 0 :QUTO SEQ FLAG 
1598 000736 ADRVN: 0 JTO SEQ DRIVE R 
1599 900740 ABLCNT: 0 ‘AUTO BLOCK COUNTER 
1600 900742 ASEGCF: 1 AUTO SEQ CONTINUOUS FLAG 
168i 900744 EOPBI: 6 EOP FLAG 
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DZTUAG.P11 17-JUN-77 09:Se SEG OOS 
1603 ;UNIT ORDER AND DESCRIPTION TABLE ####ee2¢4¢4 
160e ea 0 tte N+ Is peveD 
1 UN3: E ; THEIR DESCRIP PT BRS IN 
1608 UN4: 0 THE ORDER T THEY 
1605 UNS: 0 *WILL BE FeetED 
1611 rhe 5 
l6le 000000 UNS: 0 
144 000766 177777 UNX: -) 
ipl? ;UNIT DROPS AND PICKS POINTERS###eeeeee 
1617 000770 001210 PIK1: BPOO 
1618 000772 001230 Pike: B8P10 
1619 000774 001250 PIK3: BPe0 
1620 000776 9001270 PIK4Y:  B8P30 
1621 001000 001310 PIKS: BP4O 
eee ee: Be 

U $ 
1e54 Boiooe bOtseD Pike: | BP?O 
1625 001010 001410 DRP1: 8000 
1626 001012 001430 DRP2: 8010 
1627 001014 001450 DRP3: 8020 
1628 ponte 001470 DRPY:  8D30 
16239 001 pple DRPS: BD4O 
1630 001022 1530 DRP6E: #8050 
1631 001024 tbe DRP7: 8060 
1bs6 001026 1570 DRP8: 8070 
ta ;UNIT BAD TAPE POINTERS##eeeeeeee 
1 1 001610 BTADDR: BTO0 
tea? Boinse porsi4 Bry 
1638 001034 002020 BT02 
1639 001 002124 BT03 
1640 001 posese BTO4 
1641 00104, 334 BTOS. 
1642 001044 BT06 
ites 001046 O02544 BT07 
a4 ;UNIT WRITE RETRY COUNTER#####eRHEe 
1647 001050 RTY1: OQ 
16 001 RTYe: 
le DO} RTY3: 
16 oot RTY4: 4 
31651 001 RTYS: 
16Se 001 RTYE: Q “ 
1653 001064 RTY?: 
1654 OOl10EE RTYB: 





1s SUNIT WRITE ERRORS##eeeeeeee 


SEG 0037 


LOS 
22-JUN-77 08:44 PAGE 37 


TMO2-TU16/TE16 DATA RELIABILITY PROGRAM MACY11 30(1046) 
17-JUN-77 09:Se 


DZTUAG.P11 


O0000000 


ESS5S8e8 


og He eee ae 4 


88888888 


Pen Ra RRR RI 


BBB Bik fe eee hie eee Rae Kee ee hee he lee Doom Koa lee hem hem ham hom heme ee ham bem ham oe bem hem ham om ham kam heen) 


;UNIT READ FORWARD ERRORS##eeeeeeee 


vor ote 
paneauay 


eESEee: 


pepe tt fH 
8 8 wd od wd 
ont 4 4 4 4 4 4 


88888888 


;UNIT DATA ERRORS FORWARD ###ee ee EH 
;UNIT DATA ERRORS REVERSES#eeeteeee 


;UNIT READ REVERSE ERRORS###eeeeeee 


0 
0 
Q 
0 
0 
i] 
0 


O000NMO000 


DEREV1: 


RDERR1: 


DATERI: 





saaaaasa 


TReRRRRRE 


wononowouoowow 


RSRLFEKRERTS 


woOoWOWWoOWowr 


er RRERRERER 


ce Keeen Rueen leew een Keown Reems Leet Rete Ieee hee Itt htt elt et el) 


TMO2-TUl6/TE16 DATA RELIABILITY PROGRAM MACY11 30( 1046) 
17-JUN-77 09:Se 


DZTUAG. Pil 


001210 
001230 
001250 
001270 
001310 
001330 
001350 
001370 
001410 
001430 
001450 
001470 
001510 
001530 
001550 
001570 


sDROPS + PICKS PER CHANNEL PER UN] Teteeeeeeeet 


Oo: oO: Oo: a 


Oo: Oo: Oo 


* C2: CO: Oo CO FC: C OC: C OO 


-+16 
+16 
+16 
+16 
+16 
+16 
+16 
+16 
+16 
-+16 
+16 
+16 
-+16 
+16 
.+16 
=.+16 
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SEG 0038 
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DZTUAG.P11 


te 


: 


ReSERSEESE COND Di RSARSRRSSR Dr aea tect thn aniats 


001610 
001714 





i ae ee 


17-JUN-77 09:Se 





BTOO: 
BTO1: 
BTOe: 
BTO3: 
BTO4: 
BTOS: 
BTU: - 
BTO7: 


SEG 0039 


sUNIT BAD TAPE COUNTER: 16 PER SLAVEs##eeeeeee 


Oo 


. +102 
. +102 
. +102 
=.+102 
=.+102 
.+102 
.+102 


oO- O- o-oo: CO: CO O- 


«8.4102 


EOTCO: 


RFSOFT: 


RRSOFT: 


COC000000 


;UNIT END OF TAPE COUNTERS 1 PER SLAVEs#xx### 


;UNIT READ FORWARD SOFT ERRORSH HE 


O0O000000 


;UNIT READ REVERSE SOFT ERRORK#####% 


> 


04 
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DZTUAG.Pii 17-JUN- SEG 0040 








168 UNIT READ FORWARD HARD ERROR##+#### 
ies RFHARC: 8 
l 0 
1805 0 
l 0 
i 
1809 002746 0 
1819 
TE ;UNIT READ REVERSE HARD ERRORSs##eee# 
1813 RRHARD: 0 
i Ge 
1815 002754 a 0 
ee : 
181 4 0 
1820 002766 00000 0 
ieee ;DATA PATTERN GENERATORS #4 eee eee ee | 
16o4 002770 002770 DATBL: SENTRY TABLE 
1885 002772 O14 368 DATAG: Baro j EXTERNAL INPUT FROM H/S READER(SEE MAINDEC-11-DZTUF } 
185 ere Geen DATA2: DAT? FALL 
fe ee Bee para Ear Etre OS 
i fae Hee Me aris oe 
: DAT * AL TING ONE/ZERO IN ALTERNATING CHARACTERS 
ies eae Biaees pATAIa: Paro SWALKING ONE/ALL ONE IN ALTERNATING CHARACTERS 
He Bee ble pera: Bert at Bie 
ise Dieet blurt paras: er IANERWTING CHPRACTERS, 0.0977. ccncegs 
1638 9030es Bi2004 Barals: DATIS AUTO SE OGENCE PATTERN 0,0,-1,-1,-2,0,0 


TMO2-TU16/TE16 DATA RELIABILITY PROGRAM MACY11 30/1046) 22-JUN-77 08:44 PAGE 41 
OZTUAG.P11 17-JUN-77 09:52 SEG 0041 


. EVEN 
en cee greg ner nas ge ons + stenaemecmammme a 
; PROGRAM START AND SEQUENCE FORMATTER: 


THIS ROUTINE S USED TO TERE ORM ALL HOUSEKEEP 
DECIOE WHIC Q TEST AIND aE: BUATLABIC TTY 
ey Wd 194 DATA PATTERN, 
Gen TES He SUITC TCH SETT 


fo SeRG al nile 8 He AF Cte 


CRITE. STATS MAY BE PR WED. AT THE END r 
se FERS, CYCLE VIA C cnt TCH QURTEEN” (14 
se eeenserasascaussaacerasTEbieeeseeseeseseesseeeieeees 


perent 200 & 300 seeeeEEEEE 


1840 

1841 

iS 

ibaa 

1845S 

pee 

1847 

1848 

1849 

1850 

1851 

188¢ 

ies 

18s5 

1856 

ieee 

tea poses pisces Bonsoc dia eR OReEGE ‘tien puto st PENCE FLAG 

1861 00303€ pense CLR (PC)+ js CLEAR CAIN I ICATOR 

1862 003040 00000 CHNFLG: .WORD 0 ; CHAIN N MOOK I NoICATO 

1863 $5170 N/NO 

1864 po2042 022737 005072 on0042 CMP #SENDAD, as42 IF LOADED nA N noe CHAIN MODE 

1865 001404 Q 50$ 

1866 003052 08732 ooo0042 ist ase me IF IN DUMP MODE 

1868 BR 51$ 

1863 ee o} 000176 000S06 : MOV #SWREG, SWR ; INVOKE SOFTWARE SWR 

1870 12777 100000 175510 MOV #100000, JSWR :iMLTH HALT ON ERROR SET 

1871 003078 005237 003040 51S: INC CHNFLG ‘SET CHNFLG = CHAIN MODE 

187 O310e 000137 003126 JMP 4 +66 TO CHAIN ADDRESS 

1874 003106 122737 000006 000041 CMPB ts #6 841 ;+4G BRANCH IF NOT LOADED VIA TMOP 

1875 003114 001010 BNE STAUT 

1876 003116 012704 027340 MOV #MSG120,R4 

1677 es 104000 Trout ae 5446 ADVISE USER TO REMOVE TMDP 
5 

1879 0031 009734 3S: INC ASEQF tae SET AUTO SEQUENCE FLAG 

1880 003132 000137 021770 IMP ASEQO -+4G GO TO AUTO SEQUENCER 

td iSteat on Prrtiiiiity 

1 003136 012737 900001 o00634 STAUT: ‘MOV #1, TINF ;SET TTY ENTRY FLAG 

1884 002144 005037 O1S122 C ROFL ‘CLEAR RANDOM DATA FLAG 

188 003150 900405 BR STARTB +46 

1887 START 204 seeeeeeene 

1888 003152 005037 OCCE ifiRTc: CUR TINE ;CLEAR TTY INPUT FLAG 

+889 003156 000434 BR STARTD +46 

1891 ART 218, SHRESEES ES 

896 903160 905037 34 iF ORT TINF ;CLEAR TTY ENTRY FLAG 

1692 O03164 O! 70636 eTARTB, AY sT0B, RO 

1694 003170 01270: 00003 MOY 837, Ri 

1e9¢ 002174 020 STARTO: CLR (ROS+ sCLEAR FLAGS AND COUNTERS 








A  — -_—?- 
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OZTUAG.P11  17-JUN-77 09:52 SzG 0042 
18% 003176 905301 DEC Rl 
1897 BNE STARTO. 
1 12? 000500 MOV #S00 ;SET STACK POINTER 
{ Bp 1ae0 we OSRYYIN RO. Agree Egat: 
1 135 1 ty1 
1901 12701 000750 MOV 8750, Al 
i fee fee STARTF: ie (RO)+ ;CLEAR STATISTIC COUNTERS 
1 1 St aate 
1905 012737 177777 014360 MOV 8-1, PATS :PRESET PATTERN 
1 res Cn 
1 1 1 000654 STARTE: MOV $1, BLCNTR :PRESET BLOCK COUNTER 
1908 01 o00500 STARTD ; 
1909 003254 O01 000340 175322 MOV 8340, aPSW : 
1910 1 50006 SUSWR: MOV 86, -(SP) ;SAVE VECTORS 
1911 1 MOV #4) -(5P) 
1912 1 003312 MOV #1$'ae4 :SET UP FOR TIMEOUT 
1913 003300 022777 177777 175300 CMP 8-1, ISWR REFTRENCE HARDWARE SWITCH REGISTER 
tgi¢ DOs316 | QOONDT pe OtCOSS 
1916 1 1$ CMP (SP)+, (SP)+ sADJUST STACK 
1917 003314 012737 000176 O00606 2s MOV aSwRet, Suk ‘POINT TO SOF THARE SWITCH REG 
1918 003322 1263? 3$ MOV (SP)+, 084 ‘RESTORE VECTORS 
1919 003326 O01 MOV (SP}+’ da6 
1920 003336 000176 000606 CMP sSWREG, SWR -IS SWREG SELECTED 
1éos boaMe DoSra? oOo7™ ey 
i Bees Slo z 
1904 000744 CLR EOPB1 
1925 003354 004737 Oc4404 JSR PC, CNTLU “CHECK FOR CONTROL G 
18e% Ole 4§ JSR PC’ TINP G0 SET PARAMETERS 
1 et 175126 MOV #40, aC iO TIAL IZE 
1928 STAUTO: CLR RO srOINT TO FIRST ENTR 
1929 ooxa74 177777 000746 1S: CMP #-1,UN1(RO) +46 BRANCH IF LAST ENTRY 
1930 1406 BEQ 2s 
1931 903404 042760 100000 000746 BIC #100000,UN1(RO) ;CLEAR EOT FLAG 
1932 003412 062700 ADD F ‘POINT TO NEXT UNIT ENTRY 
1933 bosib BR 1§ *+4G CONTINUE CLEARING 
1934 13703 005130 2s MOV REOTC,R3 
1935 003424 000303 SWAB OCR 
1936 O03426 110337 005130 MOVB  R3,REOTC RESTORE EOT CNTR 
1937 bo3132 12777 000100 175150 START: MOV #100, aTKS TTY Ty INTERRUPT ENABLE 
1938 013700 000674 MOV UNP , RO ‘RO = TABLE POINTER 
1939 O02444 177777 000746 STARIA: CMP #-1. UNI(RO) eo BRARCH i ik LAST ENTRY 
1940 Ooaiee 1404 BEQ STARIB a LAST ST UNI TRING: BR 
14 16037 000746 oD0sse MOV UN1 CRO) , UDES ;LORD int? NDESCRIPTION 
eh 4 STARIB: BRC BLCNTR ‘BUMP BLOCK COUNTER 
Lo 34 TST ASE OF ‘SEE IF AUTO SEQ 
1945 74 OOla1 BEQ STARIC IF NOT: 
1H 7% 023737 000654 cCO740 CMP BLCNTR,ABLCNT SEE IF DONE SEQ 
194 001005 BNE STARIC IF NOT: 
1s4e 00 pos037 900654 CLR BLCNTR ‘RESET BLOCK CNTR 
j por 000674 CLR UNP "RESET UNIT POINTER 
1950 OC3E16 000207 RTS PC ‘RETURN TO AUTO SEG 


:R 


é 


5 


& +--+ +0 + b= &- 0 b= b= b— O— b— b~ Ob +b 6 — B= b= b+ + = = BO 0 = Ob = = ~~ 8 8 = 
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352 ness 000674 STARIC: CLR UNP 
968 1 000746 o00sse2 MOV UNI1(RO),UDES | ;LOAD FIRST UNIT DESCRIPTION 

1 175046 TSTB i446 BRANCH Hf NOT RANDOM RECORD 
ART2 +46 SIZE REQUESTED. 
, Fee BCTCCHTR id ReneRaT RECORD SIZE 
ag peedd Bae777 ett 175030 START2: art B08 aSWR OO RO NBOR DATA 
90 003556 001402 BEQ srrRt 3 ‘IF NOT: BR 
#1 bo 360 OOM? 37 15054 JSR DATR GO GENERATE RANDOM DA 
100 175014 START3: BIT #100, aSWR ‘SEE IF RANDOM RECORD COUNT 
363 bo 3576 1408 BEQ TARTY IF NOT: 
Qe 012326 JSR RCNTR ‘GO TE RANDOM RECORD COUNT 
365 003600 STARTY: rer Un} CRO) j¢G BRANC cH IF NOT AT EOT 
i Gate ONT ome ate STaRT. HEL GD 0 nex utr 
$5 hie pte popeee 174714 MOV UDES, ace iF UNIT NUMBER 
370 1 174670 TSTB °44G BRANCH IF UNIT AVAIL 
971 100412 BMI STARYA 
76 000666 DEC STAL 
003640 001357 BNE STARTY AWAIT TUR 
974 003642 004737 022662 ISR PC T :PRINT HEADER 
975 00264 01 026041 MOV #SG49, RY 
976 003656 104000 TTOUTT ;PRINT NOT AVAIL 
977 1 STOPP . 
978 003656 000750 aR STARTY 5+4G RETRY 
879 003660 013746 oo0sse STARYA: MOV S.-(SP) ‘GET UNIT DESCRIPTION 
980 003664 042716 175490 BIC #175400, (SP)  $+4G CLEAR ALL BUT FORMAT BITS 
981 003670 022726 001700 CMP #1700, (SP)+ +46 IF NRZ 
982 003674 001406 BEQ 18 3 +46 
983 003676 032777 OCOCOO4O 174616 BIT 840, 30S 5446 BRANCH IF SLAVE IN PE FORMAT 
ope She read 004336 OMe LS aer7 +446 GO TO NEXT UNIT 
986 le O04 014152 1S: JSR PC, DSUP GO SET UP WRITE DATA 
987 6 oon? 005 136 JSR + RAND * REWIND 
seg 4 JSR PC’ WRITE * WRITE 
Seq O13 76 OO0066E MOV Sta STAL ‘SET TURN AROUND DELAY 
990 39 1 JSR PC, STALL - DELAY 
32) oos70 bow? JSR PC’ RSEO :GO TO READ SEQUENCER 
ed OO0&EE MOV TSTAL, STAL ‘SET TURN AROUND DELAY 
993 003752 bicese JSR PC, STALL : DELAY 
a4 po37e 0000 174622 BIT #40000, JSWR “SEE IF SHOULD PRINT STATISTICS 
995 BEO STARTS IF NOT: 
ogg 01 000001 MOY #1,R0 :SET RECORD COUNTER TO | 
997 004737 Oeebbe2 JSR PC’ PAPR ‘PRINT CYCLE NUMBER 
$3e 004 DO400E TSR pC STP ‘GO PRINT STATS 
teed os z p07532 stp: J PC DPPRT :PRINT DROPS AND PICKS 
l2 012704 O2e6b254 MOV #MSGES, RY 
1 TTOUTT :PRINT RETRY TOTAL 
1 0674 MOV UN Ry 
16402 001050 MOV TY] (RY) ,R3 
A730B4 ozeues eye anSG73,R4 deuaplemasinees 
004036 104000 TTOUTT é :PRINT WRITE ERROR TAG 


ERAS ERSBS 


TMO2- a DATA RELIABILITY PROGRAM MACY11 30( 1046) 
DZTUAG.P 09:Se 


17-JUN-77 


3008 a ee 001870 


2010 





SH SEIS 
WONMUN LS WM 


om 
i" 


iB Ble BT 
2020 NEES tied 33 
Ses Goalie josou 
2023 peiee 013704 000674 
2024 1e4 016403 002730 
eis 
2028 1 13704 000674 
2029 144 016403 001130 
ee 
2031 : tela 026310 
5035 Oowies 1370 00674 
Se mie tee ms 
2036 ize 012704 027222 
2038 bra704 74 
2040 el hone " 
2041 SOME b12704 027233 
SBS we: 
Daa 1ev3 602750 
204S 0042 tie neous 
ie 
2049 a 0 001170 
Ce ex 
2 : 
ee ee 
1 17431 
: e74 : 27 1 3 
See Boson S014]? 
2089 AE ett 174210 
i 14 o0e3 OCOEEE 
01372 
ceztte 


8 
Rae 
8 

| 3 


STPxX: 


STARTS: 


STRRTE: 
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UNP, RY 
UTERT CRY), RQ 
eMSG72, R4 


UNP, RY 
RDER1(R4) , RB 
#MSG113,R4 


RY 
RPSOF TRY) ,R3 
#MSG114,R4 


UNP RY 
RFHARD (RY) ,R3 
#SG77, RY 


UNP, RY 
DATERI (RY) ,R3 
8MSG6B, RY 


UNP, RY 
RDERRI(R4) ,R3 
#MSG113,R4 


UNP RY 
RRSOFT (RY) RB 
#MSG114,R4 


RY 
BRHAROCRY) RO 


#MSG76,R4 


UNP, RY 
DEREVI(RY) RB 


SEG CO44 


;PRINT WRITE ERRORS 
;PRINT READ FORWARD ERROR TAG 


;PRINT READ FORWARD ERRORS 
;PRINT SOFT TAG 


;PRINT FORWARD SOFT ERRORS 
;PRINT HARD TAG 


;PRINT HARD FORWARE ERRORS 
;PRINT DATA ERROR FORWARD TAG 


;PRINT DATA ERROR FORWARD NUMBER 
;PRINT READ ERROR REVERSE TAG 


;PRINT REVESE ERROR NUMBER 
;PRINT SOFT TAG 


PRINT REVERSE SOFT ERROR 
SPRINT HARD TAG 


;PRINT DATA ERROR REVERSE TAG 


PE TURN DATA REVERSE ERROR NUMBER 
Bid Bo ONLY PRINT 
TAPE STATS 
meek /WRITE SWITCHES 
E 4 HAVE READ OR WRITE 
seg BRANCH IF HAVE UNIT READY 


;DELAY FOR TUR 
;PRINT HEADER 
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DZTUAG.P11  17-JUN-77 09:Se SEG DO4S 
Soe oosae 1osGo0 a THourT seventh > : PRINT NOT ayAIL 

a Ge ise oe on ge at tad Toe 

soe ;RANDOM BASE RESETH#eeeeeeeee 

Sg POURED 018737 S90R! BARES, RANSET: ey CMABEETRANGRY TRESET BUFFER 

2074 004364 013737 000630 O00S54 MOV RCSAY_RCNT "RESET RECORD COUNT 

2075 904372 013737 900632 O00SSe - MOV FCSAV, *FRCNT RESET FRAME COUNT 

2076 504400 900207 RTS PC 
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2078 . SEESSSKEASRARAAAAESRSRAESRAKRAERERERELAAARAARELALELASLSE 
2078 REWIND FROM EOT: 

l WHEN ANY T T BEING TEST HES END OF TAPE 
a MR TERRIA SoS HOn eH Pele 
2083 SAND FL AS UNAVAILABLE UNTIL’ALL AVAILABLE UNITS 
2084 ; HAVE REACHED EOT AT WHICH TIME ALL TESTING WILL BE RESUMED 

:AT PROS COUNT OF (1). A MESSAGE WILL 
2086 ; PRIN ON THE SUPERVISORS CONSOLE AS EACH UNIT REACHES 
2087 *EOT AND IS REWOUND. 
spas : LELEKSKSAESSRALRAREALARESAAS RARE RESRSARAAERAERELEAELLL RSS 
2090 013777 oooss2 174132 REOT: nov UDES ace ;LOAD COMMAND REGISTER 
#11, ; 

ese : Tat 1S: STB - iso HALT FOR DRIVE READY 
spas pte ie a : ret areec! sSTORT REMIND OVERFLOW REWIND 
Spee ated BNE ofia iff sb. BR 
2097 013700 000660 MOV EOTREC, RO 
209g 042700 100000 BIC #100000, RO :SET RECORD NUMBER OF EOT 
2033 005037 O0dbed REOTIA: CLR EOTREC i996 gLEaR EOT IND & REC CTR 
10) 0227 37 oo00d2 000724 cH #2, BTELG : SEE wi POSITION ERROR 
5103 Eee 027113 HOV 5610 ,R4 *SET POSITION ERROR MSG 
210 e273” 000001 000724 REOTIB: cH 41 ,BTFLG iSE Rid BAD TAPE OVERFLOW 
std sea 026724 MOV 8"SG106,R4 :SET BAD TAPE OVERFLOW MSG 
108 104000 REOTIF: Trourt site ‘PRINT REWIND REASON 
2110 oi2704 o2s0se2 REOTIC: MOV 8MSG20, R4 :SET EO? MSG 
iil Loco ani REOTID: Trourt at ad ‘PRINT MSG 
ate SO EOTEO (RY) ;BUMP CNTR 

114 1 50 MOV OTCO(RY) , RS 

115 1 OC TPP ;PRINT EOT CNTR 

16 Uheok, Geers! REOTIE: OY, SSSI. “PRINT RESTART MSG 
e118 O77 000724 CLR TFL ; :CLEBR BAD TAPE FLAG 
5133 7 eee JSR Be’ BTPRT PRINT BA Fare STATS 
5182 ; th 173732 REOT2: STB 08 on :44G BRANCH IF UNIT IS READY 
123 005337 o006be DEC T 
21 001 BNE Reote ;WAIT DRY 

1 27 713 oo0es2 MOV 8MSG6. EMADOR 

: ? zete SR PC, PAP T :PRINT HEADER 

i: ; qT 1T ‘ ;PRINT NO DRIVE READY 

} 005130 REOT2A: fect OT ;SEE IF LAST UNIT TO REACH EO? 
Ho GSG El oan ee, 

2:33 062760 iCd00C oco74e gis #100000,UN1(RO) ;SET EOT FLAG 
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aH 


rorurufroruorurorurorurururururfornofrorufurororfurururorurururururulfurururrururururururururururururururufurur 
00 = = = Ob 8 b= = bs = = = = eb Bo 0 0 2 he be Be be ee = Be eo 


1 


KRIGH—BId Ira ZIn—-SSEGEHLG- GOVERN or Ow VP AL SBS IRaRE 


peeaeeaa ees me 


Doves 


RSrIT SES 


7 


og 
TNs 


004744 
004750 
Oon7e4 
004760 
004766 


004774 


5 


e 


00S01e 


see 


SS 
severe Ge @ Bierce: 


28 
_— 
|=] 
bs 


SS Cees 


8 
: 
: 


sof 


ee 


Sy 


000746 


014360 


REOT3: 


REOT4: 
REOTS: 


REOTE: 


REOT?: 


REOTX: 
TEND: 


SENDAD: 


HERE : 


1$: 
REOTXX: 
REOTC: 


TST 
MP 


MOV 


BEQ 


RAgSRRR 


 "Z2a3 
3 


;RESET STACK POINTER 
;G0 TO NEXT UNIT 


sRESTORE EOT UNIT COUNTER 
;sPOINT TO FIRST UNIT 
sLOAD UNIT DESCRIPTION 
;LOAD COMMAND REGISTER 
;AWAIT PIP RESET 

;SEE IF HAVE BOT 

;IF SO: BR 

;PRINT HEMDER 

;PRINT BOT ERROR 


;CLEAR EOT FLAG 


;POINT TO NEXT UNIT 
++ IF NOT LAST UNIT 
;CLEAR UNIT POINTER 
;CLEAR TTY INPUT FLAG 

AUTO SEG 


an 


BR 
STACK POINTER 
TO AUTO 


REPS 
nz. 


SE 
T 


ares ae 
aR 
a 3 


am 
mmr 
3.2 


;++G BRANCH IF NOT CHAIN MODE 
;+4G RETURN TO AUTO SEQUENCER 


;RESTART AT BLOCK NUMBER ONE 
;EQOT UNIT COUNTER 
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DZTUAG.P11 17-JUN-77 09:S2 SEG CC4e 


187 ; LESLESEE LAE ELA SASL SELES SLA ERLE RAA ALE RAA REELS EES 
188 ; REWIND ALL AVAIL TAPES: 

l TMs ROUTINE: i, ENT D VIA SWITCH NINE ), 
sig HILL REMIND "AVAILABLE FopeS fo BOT Ho Ieee” 
2192 TLY POSITIONED AND NRESUME TESTING 
3133 ORTH THERRENTLY LEE SED OR 
Sige iON TOE RSTe EO EOUATTTESEEDOSSEDAEAAAEOHOREEREEHELEOSOS 

1% 0051 777 OO01000 173446 RWNO: BIT #1000, 3SWR ; F REWIND 
sigs Bpeiss Beia01 Ria a 
2198 005142 000207 RTS PC “ELSE EXIT 
2199 005144 013737 000674 000714 RWNDA: MOV UNP , UPS ;SAVE UNIT POINTER 
sy Mee Geey Gees an be 
S50 Boeles ponaa? bosiae cura ORGOTE 
2203 005166 013700 005130 MOV REOTC,RO 
2204 005172 005130 SWAB =~ REOTC 

419037 905130 MOVB RO. REOTC RESTORE EOT UNIT COUNTER 
1 74 RWNDO: MOV UNP , RO :POINT To. TO UNIT ENT 
022760 177777 On074%6 CMP 8-1) UNI (RO) i+ H IF ey ENTRY 
2208 14 445 BEQ RUNDE ‘IF oer nae 
16 000746 TST UN1 (RO) i++ BRANCH IF ALREADY REWINDING 
2210 00433 BMI RWND 1A +46 
2211 005224 16037 000746 S2 MOV UN1 (RO), UDES iSET UNIT DESCRIPTION 
2ele O0S232 01 o00SS2 173302 MOV UDES, aCe COMMAND REGISTER 
eel bose40 ol 00001 2 MOV sii,acl ‘RIVE CLEAR 
14 15555 173234 MOV 87, acl ‘START REWIND 
2215 105777 173e42 RWNDI: STB 905 :44G WAIT FOR DRIVE READY 
eel 00414 BNI RWND LA IF DRY: BR 
1 000666 DEC STAL 
ec18 001 BNE RWND 1 AWAIT DRY 
e193 Ole 713 000652 MOV BttSGb  EMAODR 
JSR PC T ;PRINT HEADER 
2221 012704 026337 MOV #5G70, R4 
gece 905205 104000 Trourt :PRINT NO DRIVE READY 
10 1 ST 
2224 1 1 RWNOLA: BIC #100000, UNI (RO) sCLEAR EOT FLAG 
000674 ADD UNP : POINTE 
BR RWNDO :44G DO NEXT UNIT 
000674 RWND2: CLR UNP :C POINT 
005334 01 000674 RWNDS: MOV UNP , RO :POINT TO UNIT ENTRY 
sce} 177777 000746 CMP 8-1, UNL(RO) +46 BRANCH IF LAST ENTRY 
es 14 BEQ RWNDX iF SO: BF 

3 1 00974 oco00sse2 MOV UNI(RO),UDES § ;SET UNIT DESCRIPTION 

22 Guusse 173156 MOV 2 ‘LOAD COMMAND REGISTER 
173130 RWNDY: bre ,a0s iit ie 
173120 BIT 82 SEE IF HOVE BOT 
RWNOS: ADD #2, UNP : POINTER 
4 Soper | $79870 sy stiicacs tBRIVE CLEAR 
zis 344G DO NEXT UNIT 
‘ * 7 Beebe De: ee OBA PapRT PRINT HEADER 
$53 E43e 012704 S2600 MOV eNSG4E8, RY : 
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OZTUAG.P11 17-JUN-77 09:S2 SES 0049 
2243 005436 104000 TTOUTT ;PRINT NO BOT 
eo44 440 006 STOPP 
ssi 44e BR RWNDS ined 00 NEXT UNIT 
1 000714 000674 RWNDX: MOV ty ue ;RESTORE UNIT POINTER 
Soya DoSuee Bt ae NOV ) ,UDES RESET UNIT DESCRIPTION 
Beeses 018797 Goosse 179086 nov Bi ROE 
sso 005472 000207 RTS ;RETURN TO TEST 
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OZTUAG.P11  17-JUN-77 09:S2 SEG 00S0 
22Se J++ jy +471 +++ tate aeematatatatetaatatt 
ge53 gual TE 
$e ‘THIS ROUTINE IS USED TO WRITE ONTO TOPE THE BLOCK 
2256 OF DATA DESCRI AL OPERATOR AND SE T UP 
2257 iN THE or . THE TAPE maT TER BE USED 
Soe AS EACH Pree av ati HECKED 
2261 Peat era STA con OF Ta AND IIS. CURRENT 
2262 : ME ’ cEPRAT ON RESULT S i 
2263 : ANY iT ‘E ft eRe ION 
eob4 : MAY BY a OUR (4) WT a One (1). 

Sat Oe ee oe Te RECORD. WRITE RETRY Slenout ine 
2267 AFTER 5? pate RECORDS IN IN RITE 
2268 * WRI THE WRITE ROUTINE KILL EXECUTE A OORITE 
geb3 TAPE MARK F THE TTY RE 
: AT INITIAL START. ™ IS 

2271 DATA RE (I IF fd OAT CORDS; TM=RECORD 101) 
2272 IF THE WR BIION ( ) S SELECTED SLAVE 
e273 10 REACH OF TAPE (EOT) AND THERE 1S TO BE NO READING DONE, 
2275 Fi ae AILRBLE-F FOR ESTING UNTIL Re SOEs HAVE 
2276 coed or" AND 6 BEEN RE REWOUND 8 T WHICH TIME TESTING IS 
2277 : RE ALL AV 
2278 ;WRIT e AL IA CONSOLE SWITCH FOUR (4). 
2279 ; Ad Y ALL pied VRS VIA CONSOLE SWITCH 
sce t THI 5) TAPE MAY BE DISALLOWED VIA CONSOLE SWITCH 
ssee EEE HEHHHKHHHAH UAE H HEHEHE EEREEEEEEHEEREEEEE 
2285 005474 032777 000001 173104 WRITE: BIT #1, aSWR ;SEE IF SHOULD WRITE 
cee 502 001402 WATE 

000137 006272 JMP WEX IF NOT: BR 
bose19 1 WRTE: MOV RCNT : CORD COUNT 

>g¢ 514 Ol 5 WO: MOV é :SET MSG ADDRESS 
2290 1 O60SSE 1727 MOV FMCNT oF C ‘LOAD CHAR 
1 01 72756 MOV TA :SET DATA ADOR 

15559 72 MOVB sMTCL : SET WRITE 
2293 S44 Ol 56 MOV sil RTRN :SET RE ADDRESS 
2295 eee 11 IMP G0 EXEC 
2295 172736 Wl: BIT ,a0S i SEE m 0 
ge3e 564 001414 BEQ : T AT EOT: BR 

5b 005737 000660 TST EOTREC se BRANCH IF WRITTEN PAST ECT 
ce9e Hi BMI We 
74 Ol MOV OTREC off eo rene NUMBER 
000660 BIS 81 ,EOTREC 
DEC EOTREC a i mer 
= 1 MOV 82, RO at WRITE Ln noRe RECORD 
1 e 01 172762 We: BIT #10000, aSwWR 
? K OP RRORS 

2 ee pik Bhae4 COOGEE W2: V TAL. STAL es 
& 005640 004727 Oleese JSR PC, STALL ; 
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DZTUAG.P11 17-JUN-77 09:52 SEG 0051 
44 000712 TST RTYFL FEE IF IF RETRY TIME 
BEQ W3A 
319 000706 W3R rot CERFL sELSE re Tue TE ERROR 
ee Boebes 3 FFE wbt Mae 
i sr a ne 
cis Bere Bers Boro ch SER, HEGEL StaTuR Emon FLac 
l 172702 BIT a : 
att BEd : 7 :IF Nor: ge 
cus 1 OOO ae BIC ST oev00 R3 ;MASK UNRECOVERABLE ERROR 
: Tee OBC PAPRT t PRINT HEADER 
eee Goeres Naat noe #”5G78, R4 
TTOUTT PRINT NON-RETRYABLE ERROR TAG 
5s Bper 011232 J ,NRTP ‘PRINT ER FOR NON-RETRYABLE 
1 ip 15 rN ie (RY) RETRY 
o8 Gosrs0 rien 172630 iN , aSWR IF PRIN ERRORS 
756 BNE WHA IF NOT: BR 
2330 005760 026232 MOV #MSG64, RY 
233 TTOUTT ;PRINT ORIGINAL ERROR TAG 
900702 WHA CLR RTCNT CLEAR RETRY R 
CLR RPC ‘CLEAR REPEAT TONER 
006334 JSR PC WRTY GO RETRY WRITE ERROR 
0007 12 WS CLR RTYFL °C RETRY COUNTER 
DEC RO : IF 
1 BNE wo IF NOT: BR 
1 000S&4 Wo TST TMEX i SEE IF TM 
a xX Df T: BR 
900676 NC TMFLG SET TM FLAG 
goede’ 026137 gooese WM: MOV #MSGS4 sPOINT ToT RROR MSG 
#26, MTCI : 
006040 000000 172450 MOV #0, OFC *LOAD FRAME COUNTER 
Rea insce? FRY 
MOV MO,R ss 
Ge1170 JMP TAPG swaITE “M4 
I 172512 WTMO: bre #10000, 3SUR : F SHOULD CHECK ERRORS 
000004 172416 BI 84 EE J IF 1 STATUS 
1104 ROY WTA a ADDRESS 
- 
ed SEE: my OOS ‘Baie ERROR 
020206 JSR PC’ ERPT 
BR WT 
WTM1: MOV TA,R T BOORESS 
I J pC ERE Gb CHECK FOR OTHER ERRORS 
l We: TST RTYFL i wor RETRY 
are Bene . RETURN TO RETRY ROUTINE 
00070& WTM3: fot SERFL HEE IF imiTe PRRBR 
BEQ WEX ‘I 
74 MOV UNP ,R4 
1970 INC WTERL (RY) ;BUMP WRITE ERROR 
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DZTUAG.P11 17-JUN-77 09:S2 

2364 006166 032777 000020 1724le BIT 
2365 006174 001436 ae 
ss Bis ar IB at 
141 BEQ 
2369 006210 004737 Jeebbe JSR 

st esky thes le ur 
5352 O0be2ee 004737 011232 JSR 
Bs ES om = um Be 
2375 006234 013704 000674 MOV 
a Oa fe 
a fee! fee Mem vem 
D0bct 12704 026232 MOV 

2381 006264 bine TTOUTT 
¢ JBC 737 006334 WTMYA: JSR 
2 38 ar 005037 000712 WEX : ete 
fe ee te ny 
Be ees HL mf 
pa Bes bee len it 
2390 006324 po 1006 BNE 
2391 006326 1 004402 JMP 
e392 006332 000207 WRWX: RTS 





22-JUN-77 08:44 PAGE Se 


SEG 00S2 

#20, 2SWR ;SEE IF SHOULD RETRY 
WEX ape -IF NOT: BR 
#1 ,R3 ;MASK UNRECOVERABLE ERROR 
WTM4 IF SO: BR 
PC. PAPRT ‘PRINT HEADER 
#5G78, R4 

;PRINT UNRETRYABLE TAG 
PC, NRTP :PRINT ER FOR NON-RETRYABLE 
SEENT ;CLEAR REPEAT CNTR 
UNP, R4 
RTYL(RY) ;BUMP_RETRY CNTR 
TCNT CLEAR RETRY one 
#2000, SEE IF IF PRINT ERRORS 
#MSG64, RY 

PRINT ORIGINAL ERROR TAG 
PC, WRTY *GO DO RETRY 
RTYFL * CLEAR RETRY FLAG 
TMFLG He TAPE MARK FLAG 
EOTREC :44G BRANCH IF NOT AT EOT 
WRX ++4G 
Seo 7e3, RS 
#14,R3 ; SEE IF WRITE ONLY 
WRX F NOT: BR 
REOT :ELSE REWIND 
PC EXIT 
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DZTUAG.P11 SEG 0052 
2393 SITE ERR ETRY 
2334 WRITE ERROR RETRY 
2 $ a eeeeeeENEEREEEEEEEEERES 
006334 012737 000001 000712 WRTY: MOV #1, RIVEL 5, enya 
ee Ses ee Be Re GSE it 
Sos 3 005514 = Pc Wo oak RECORD 
ft mal 
50s 006 36< 006024 WRTYTM: JSR PC, WTM 2 ie ant MARK AGAIN 
240S 006366 re 000706 WRTYR: TST SERF L REWRI 
2408 000004 000700 3 #4. RPCNT SEE IF FOUR GOOD SP OEATS 
Be ne sams Ee e tata 
2410 10 172170 BIT #2000, ae IF PRINT 
Suid Bocuse Bieyhd as cellent 
l 1 026711 MOV #MSG105, R4 
e413 SoeNes 404000 TTOUTT ;PRINT RECOVERED MESSAGE 
2414 1 026254 MOV 8MSG65, RY 
2415 OO0643e2 Jowo00 TTOUTT ;PRINT RETRY TAG 
sig “Be 000702 MOV RTCNT,R3 
1 OCTPP PRINT RETRY NUMBER 
ig ye: GR TENS Se AE RECOVERABLE ERROR FLAG 
us Bes fie Ass go fo, 
2421 OO064S54 042703 102700 BIC #1 ,R3 Te he coveweete BITS 
S155 Boeses DON7a? cepcee Fee OBC PRPRT sr RECOVER 
e4e4 006466 012704 O26516 MOV #SG78, RY 
sige 72 TTOUTT ‘bain BR NON-RECOVERABLE MSG 
2427 es 12737 ery 000646 sav OY TEMPS : SET FLAG 
2428 006506 000407 BR WRTY 
24 1 002000 172070 WRTY2A: BIT ,aSWR ;SEE IF PRINT 
4 1 1025 BNE WRTYS ;IF NOT: BR 
16708 027145 MOV #MSG110,R4 
i TTOUTT :PRINT BAD TAPE SUSPECT 
12704 026254 WRTY2B: MOV 8MSG6S, RY 
so4000 TTOUTT :PRINT RETRY TAG 
000702 MOV RTCNT,R3 
j OCTPP ;PRINT RETRY NUMBER 
0 027167 MOY #MSG111,R4 
1] TTOUTT ;PRINT REPEAT TAG 
0 000700 MOV RPCNT,R3 
OC TPP :PRINT REPEAT NUMBER 
000646 TST TEMP3 SEE TF IF OID NON-RECOVERABLE 
1 BEQ TY3 
000646 C R TEMPS Clea "EBC 
000702 WRTY3: TS RTCNT ‘SEE IF FIRST RETRY 
BNE WRTY3A :IF NOT: BR 
13704 0006 MOV UNP. RY 
005364 001070 DEC WER (RY) :DECREMENT WRITE ERROR CNTR 





th | laa pare B55 BG TEE TY PROGRAM MACY11 30(1046) 22-JUN-77 08:44 PAGE S4 


achhetsinnsnbebtaacciatapetnaesahadticadatdesaacd f 








Bigas? bo1690 


125 | 


~ 
~ 
—e- 
Be oe of 


SNe Ste 


ER wR 2 bE 


2 


: 
sess 
8308 


\=) 
ro 


Beas 
gS 

F: 

RE 


8 
“ 
oO 
~- 
© 


WRTYSA: 


WRTY4: 


WRTYS: 


WRTSB: 


WRTSBO: 


WRTSB1: 


WRTSB2: 


WRTSB3: 


V 
3 
Vv 


MOV 


BER iMbe st Pe iseits: 


BTAbOR ROOR (RY), BTPT : ‘GFT BNBRESS OF UNIT BAD TAPE CNTR 


7 ad ET OT corset 

R4, JBTPT 

grr, FS T UTE POINTER 
BLCNTR, (R4) ‘abt Brak 

840,R4 “ADO RCNT OFFSET 

RCNT, (R4) 

Ro, (RY) -SET RECORD NUMBER 

(R4) CORRECT RECORD NUMBER 

840, 2BTPT jSeE IF F TOO MANY BAD SPOTS 
WRTYY : iF NOT 

BTOV oo To 0 BAD TAPE OVERFLOW 
BA RTCNT ; % URETR IES 

unt fay pore 

RTYL (RY) ;BUMP_RETRY COUNTER 


ERY Bb NXT RETRY 


“ELSE GO TO BAD TAPE UNRECOVERABLE 


;WRITE RETRY BACKSPACE-ERASE SUBROUTINE S#eeeeeeee 


CLR 
MOV 
JSR 
MOV 


;CLEAR FLAG 


i +O TERROR CODE On 
SET T TO BACKSPACE 1 RECORD 


sROATA, aBA : SET 

7 in 
WATS iJ at: BR 

ae, BTFL T FLAG 

(SP)+, (SP)+ SET S 

REOT ee es fen AND REMOVE FROM TESTING 
WRT 

PC RETURN 

ERTFL RETR ERASE FLAG 
RPCNT s CLEAR REPEAT CNTR 
pa 3C 

8MSGE7,EMADOR ; 

arc ‘CLEAR FRAME COUNT 
ged MTC Fi RASE OP-CODE 
SUR TSBS, RTRN ; TURN ADDRESS 
pce Ni iSET EXP CHECK ERRORS 
CEAFL SE Ei a 

WRTSB1 :I 

WRTSBO 





SEG 0054 
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DZTUAG.P11 


ae 


oD eer Tegreeanan 


OD NOU LITE 


SUB GRRE BORN EN Is 


ORD 
rE 


17-JUN-77 09:52 


gee: 


tty 
= 
es 


o-8 


RaSGns 


001375 
000207 


000724 


BTOV: 


BTOvO: 


BTOV1: 


BTOVe: 


BTOV3: 


BYOVX: 


22-JUN-77 08:44 PAGE SS 


;BAD TAPE OVERFLOW SUBROUTINE S##eeeeeee 
5 CLEAR RETRY FLAG 


3 Breer 


BNE 
RTS 


FL BYFLG 
caps, 
REOT 
BTPT.R1 
(R1)4 
RO,R3 

R3 
#SG13,R4 
(R4)+ 


(R1),R3 
eMSG14,R4 


840, R1 
(R15+,R3 


ND AND REMOVE FROM TESTING 


ge, ROROLE POINTER 


iBRINT 


; SKIP 


/ 


2 FOR CORRECT NUMBER 
ENTRY NUMBER 


CR/LF 
;PRINT BLOCK NUMBER TAG 


;PRINT BLOCK NUMBER 


SET Po 


iRESET POINTER FOR B 


RECORD 


R_TAG 
INTER OFFSET FOR RECOED NUMBER 


FOR BLOCK NUMBER 





S€G OOss 
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DZTUAG.P11  17-JUN-77 09:52 SEG 00S 
us ;BAD TAPE STATISTIC PRINT##eeeeee 
2547 012704 025331 BTPRT: MOV #MSG28, R4 
es TTOUTT DO CR/LF 
4 ot 74 MOV 
10 016437 001030 000730 MOV BTACOR RY), BTPT ;SET TABLE POINTER 
2551 007316 017703 171406 MOV @BTPT,R3 
Sees isssq Bead 2 CORRECT NUMBER 
2554 007326 104002 OC TPP pe ‘PRINT NUMBER OF BAC SPOTS 
S227 eek ASabd 7 TTOUTT aemwense ;PRINT BAD TAPE TAG 
2557 007336 005777 171366 TST QBTPT ‘SEE IF ANY BAD SPCTS 
2558 007342 001001 BNE BTPRT1 IF SO: BR 
2559 907344 000207 RTS PC “ELSE RETURN 
g3e0 007346 000137 007152 BTPRT1: JMP BTOVO ‘PRINT STATS 
2562 ;BAD TAPE UNRECOVERABLE SUBROUTINE ###eteexa# 
ar 0073S2 004737 O22bb2 BTUR: JSR PC PAPRT ;PRINT HEADER 
2565 007356 012704 027014 MOV #M5G107,R4 
2566 007362 104000 TTOUTT PRINT UNRECOVERABLE BAD SPOT MSG 
2567 907364 000207 RT PC RESUME TESTING 


Hi 
& 
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DZTUAG.P11 17-JUN-77 09:52 SEG 9057 


5 eR J 8 gd 9 ga A a A a a a a a ak 
SEQUENCER: 


ns Ae Oe ae TO Oe een THE ae eee nen 
EE ees 


ERNE THe ONE (1), TWO mi 


COR CONSOLE. SuLTCH Of Ore (hy DerERnine UE THE REM REGENCE 


Uren hao (2) Disa oe iN THE. REVERSE 
DIRECTION AAD ‘ ee (3) DISALLOWS READING IN 


; SAELEEL SELLE LEELA E RELL LEE RARER EE EEE 


RO 


opeDERERPE Ua aaa aR PNR 
EELS 


i 
areas 
: 

i 

et 
i 

aes 


: 
a 
2 
me 


; READ BTCeS 
; READ BIT 
i“ F BOTH READS 
IF READ REVERSE FIRST 
ieee Tr SHOULD READ REVERSE 
T: BR 


as 
2 


oo00d2 171170 
000004 171160 RSR: 
010000 
Bo0a10 


SRSA 
2a 
5 


o00S62 
171136 RSF: 


ow 
338 
= 
~ 
[= 


007470 012256 JSR PC, STALL D0 READ STALL 
oor 4 JMP RSF 
1 171100 RSFO: BIT 81, aSWR :SEE IF WRITE 
Bor BNE RSF 1 IF NOT: BR 
1 012030 ISR PC, BKSP GO BACKSPACE 
14 o00002 o00S62 RSFI: #2, ROCMD ‘LOAD READ FORWARD COMMAND 
90770 13 PC To : 
007 5¢8 ROOEL RSEX: Eot C +46 H IF NOT AT EOT 
id 004402 J OT pet ELSE GO REWIND 
i Bopeae 1S RTS BE +46 EX] 
21 42 O1 010000 RSFR: MOV #10000, ROCMD 
2614 50 000010 171030 BIT 810, aSUR ;SEE IF SHOULD READ FORWARD 
2615 S 0010 BNE RSFRI ;1F NOT: BR 
266 000001 171020 BIT 81 Sour ; IF WRITE 
3 : ee de Slik 
ig 012030 J , BKSP ;G0 £ TO START 
sua 74 000562 RSFRO Noy 82, OCHO ; sp ORWARD COMMAND 
170772 RSFRI: BIT 34’ aSWR F "SHOULD READ REVERSE 
Be te ; 37 010000 oc00se2 8] 5 ROCMD Pitt 
eees 807624 GO100E BNE RSFRe IF READ REVERSE: BR 
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DZTUAG.P11 


17-JUN-77 





rie 


COObEE 


000Sbe RSFRe: 


000660 


RSFRX: 





22-JUN-77 08:44 PAGE SB 


peter STAL 


fore 
EOt me 


rch EOTREC 
EOTREC 


SES O0Se 


;D0 READ STALL 


REVERSE 
£60 REVERSE 
SEE IF AT END OF TAPE 
++G IF NOT: BR 


pane TO PROPER RECORD NUMBER 
sELSE GO TO REWIND 
sEXIT 
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OZTUAG.P11 17-JUN-77 09:S2 SEG O0sS 
2637 : SHESSSSSEASERRSSSRREASSAESSSEAESRERARERERERERELS EE ES 
cos ; READ ROUTINE: 
40 i THI BOT Ne rear Pere oars READ epee 
a tAT gr Tie REA oF ERE ein es a fo 
spy itp pa Roache, conRoL WILL os 
2645 ; THE EOT INE TO eres Biles preSED - IT 
sis i reo 


"i Be mnRY BC RESUMED By PRESSING 


g Bae 
SO nem "a tere Tre aS ) THEN ons 


2651 
2652 Cee FF CORD 
2653 : OF 10 B 
oe54 ‘THAT THE TM Rae | (1) TO THE TOTAL NUMBER 
2655 OF REC Ny 
2656 :¢ ITCHES ELEVEN | (11) AND THIRTEEN (13) DETERMINE WHETHER 
2657 ' [OR NOT TO CHECK F US ERRORS (11) ) OR DATA ERRORS (13), 
2658 ‘ee hos TCH FIVE ey 3 USED 10 TO CAUSE 8 TNUOUS 
2659 OF THE SORRENT 
ad} ; ee reRLaeSaSessTPOsanRNASEESEAHEAEEEHESHEEOOENONHS 
2663 007704 013700 ooossy READ: MOV ;LOAD REC CNTR 
2664 007710 005737 TST perReC ;SEE IF EOT 
26ES 007718 100013 am BL ROR ants i TE NOT: BR ; 
Seb ras Garage 10000 mse ¢  iggmeroo ees: Bre romero 
2668 007726 042737 100000 O00660 BIC 8100000, EOTREC ;C ar 
Spee Boor petans «COCeee By gage $e MOO TE SER RECORD COUNT 
2671 07742 005200 INC ‘ :SET TO PROPER NUMBER OF RECORDS 
2672 007744 0127 743 000652 RDA HOV reg :SET ERROR MSG ADDRESS 
sere ead bok l o00s62 StT , ROCMD 
2675 007764 001406 BEQ IF READ FORWARD: BR 
2 007766 737 000564 TST TMEX ‘SEE IF TM 
Ze 1 BEQ IF NOT: BR 
2678 por77A 000676 INC THFLG :SET TM FLAG 
1 oi 3779 1 RDO: MOV FMCNT. oF ;LOAD NTR 
Spee esta 1305 1 TRaOE MOV BROATA DBA LOAD 6 bo 
2682 O10016 Oo o00ste2 BIT #10000;ROCMD ;SEE IF READ REVERSE 
bes 1O0es BEQ ROA IF NOT: BR 
1 MOV FMCNT, R3 
268s 01 COM R3 
bee 1 ooosse B17 820, UDES FEES — IF CORE DUMP 
1 Q ROL : T: BR 
1 CLC 
j ROR R 09.5, Ce 
5a; 810084 coosve lt By aPRU RTCA BET READ REVERE 
eo eo c © 
2e92 0190€e2 BR RDIE 











ea ee ee eee 
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DZTUAG.P11 | 17-JUN-77 09:S2 SEG COED 
2693 Ql 4 012737 000070 O00672 RDIA: MOV #70 NTC T READ FORWARD 
2694 100 O1e737 O10104 000662 RO1B: Hoy she, R TRN SE INTERRUPT RETURN ADDRESS 
SE GI BOE BILGE ooosse RB? A loo mcm :sSHF to reek 
26 10112 001024 BNE RO3 
26 10114 000020 170400 T #20, 20S 
101 ‘ oust SWON 
101 000020 170370 RDeA: aos 
2701 010132 001374 BNE : AWAT 
10134 002000 170360 RD2B: BIT #2000, 20S i SEE IF EOT 
10142 at Q ‘ 
10144 000676 TST TMFLG SEE IF TM 
2705 010150 001005 BNE R03 es IF SO: BR 
5508 O1B18E §20937 sual 000660 BIS 8 OBOUL EOTREC ;SET EOT FLAG 
2708 010164 032777 000002 170330 RD3: 8BIT #2, JDS : SEE IF AT LOAD POINT 
ora IBID | SONTa : iI 
10 O10174 022662 SR PC, PAPRT : PRIN éYCLE NUMBER 
2711 Ol 0 025112 eSG2e, 
7 1 i Trourr :PRINT BOT ERROR 
2714 010210 000137 003160 IMP STARTA : RESTAR 
2715 010014 B03 004000 170364 ROY: BIT 84000, aSWR : SEE TF SHOULD CHECK ERRORS 
e718 10222 OO11e BNE RDS IF NOT: BR 
grt 10224 000676 TST TMFLG 
18 010230 0014 BEQ ROB ;IF NO TM EXPT: BR 
g 010238 000004 170262 BIT 84, aDS 
5348 1 BNE ROYA :IF TM RECVD: BR 
27e1 O10e4e 033436 021104 MOV #ROATA,CADER § ;SAVE EXPT BUS ADDRESS 
ree 910250 990002 021112 MOV a2, R iota 1 h STATUS ERROR FLAG 
10256 JSR PC’ ERP 
2724 010262 MOV UNP RY 
2725 iS o00s6e BIT 810000, ROCMD ae IF READ REVERSE 
2706 Ol BEQ 1§ IF NOT: BR 
2727 Inc ROERRI (RY) ‘BUMP READ REVERSE ERROR 
e788 1 1S: INC RDERI (RY) BUMP READ FORWARD ERROR 
27 10310 BR ROG 
1g3te RDYA: MOV #ROATA,R 
1031 o00sté2 BIT 810000;RDCMD § ;SEE_IF READ REVERSE 
1 BNE ROYAD IF SO: BR 
1 ooosse 81 #2000, UDES :SEE IF IN PE 
1 BNE IF SO: BR 
1 ADD 82 
1 BR 
1 ROYAO: MOV FMCNT,R4 
i oooss2 grr pe UDES E IF CORE DUMP 
a } Be 1 if nor: BR 
1 Cle 
43 (O01 ROR RY SET 10 FC/2 
ora 1 ROYAL: AOD RY,R :SET EXPT ADORESS 
| } BIC a1'R : E EXPT SS EVEN 
mie 10878 ooosse eit #2000, UDES SEE IF IN PE 
2748 O10404 Sus 82,R3 








SEG 0061 
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A 
17-JUN 


TMO2-TU16/TE16 DAT 


OZTUAG.P11 


# 

bey gee fe Bos 28 

Y aa 4 Ss & 5 
5 =e a a Ut oy BEB BBE e 3 as 
Je ee ee 
= £ bag oboe seuss w8e BBG 4 Gacertea 8 
Seta pee Sesteytitis “or States 
Stk deci: addicted Unt 5 Htttties & 


Se 


oayitelc 8 gee Sasa tolok sotaboansae - 
saoe SEs EPS cy cob sos seas ao eN aot OSES 
DO EO Eo HO ROOTS a ne SUS EK BE ngnee2ese 
y 


. fee ee 


RO7A: 
10 


on 


tiie 
Fateiermi it antics 
oe 


Peteeees sees ees nm RMN MURR eRe eR ERE 


Sea Seems Spams pam pan Sam ppoan em pam. pam fan pan pan pam hon pan jan pom ban pan han Joan on pan han on fan ban bon bon bon bon bon ban bon Son eon bon hon ban ban bon bon }on pan pas ban ben 
QOOWOWWIWOWWNIHUOOBWWIWDYAOOO BHAWQWWOWWOWWHWOWOOWOKWOWOOOOW00O00000000 


CRRA CUS RB SSSR SRS SSO SR SRRRRERA SSRR SOR RB OR 


ROX 


62 
170112 ROS: 


0174S6 
17360 
06 
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OZTUAG.P11 17-JUN-77 09:S2 SEG O02 
jHHHHHHHHHHHHHHHIHHHEHHIHEHIEHHIEHHIE Hii ita 
e798 ;READ ERROR RETRY SUBROUTINE: 


‘TUES SEER EP TOE Tony ( te) thes, Maia: Ae 
PR Rates md aed 2 CAE ent 
: STP RROR ° fe ES MAY 


: SOFT off RIES NHIBI 
:VIA SWITCH F <0: INHIBIT RETRIES) 
 SSTAEEEESSOAEATASSSSESEHASSOEEAESOHEEREAEEEERAEEOE 


aati ere 





10660 032777 000020 167720 RDRTY: BIT 820 SEE IF RETRY INHIBITED 
BEE 001001 BNE aeatee IF NOT: BR 
at Glen ire moro: OY Beye aL TU 
sale peed pis reac Ge #1 »R3 RECOVERABLE ERROR BITS 
sia gig70N oO? zebe FER PC, PART HIF NOT; OF 
oils a iq Ne i26 vO TT shee COVERABLE MESSAGE 
ei? tat iti 011232 ata i BC NRTP PRINT HONOR NON-RETRYABLE ERROR 
2Bi9 Ol 002000 167654 RORTI: BI aSWR F PRINT INHIBITED 
2820 a 1903 are RoR a isEtlr pe 
e821 O01 1 026232 MOV 8MSG64, R4 
2822 O01 TTOUTT : PRINT ORIGINAL ERROR TAG 
2823 Ol 000702 RORTIB: CLR RTCNT CLEAR RET COUNTER 
2824 Ol 000706 RORTG: CLR REL if TUS ERROR FLAG 
seer Gt A sees — mee ge. foye 60.19 Y Eto Eee ay READ 
oes 1 005737 000706 TST SERF eR Dt 
1 1 BNE ROR see 
ij 1 eupend torr: ate : 
2831 011002 re 026711 MOV #MSG10S,R4 
11 i TTOUTT ;PRINT RECOVERED MESSAGE 
: 1101 026254 MOV aMSGe6S, RY 
: 11014 i TTOUTT PRINT RETRY TAG 
: 1101 000702 MOV RTCNT,R3 
B% O11 OCTPP PRINT RETRY NUMBER 
; il 00674 RORT2: MOV 
B38 i 1 o00st2 BIT Fas READ REVERSE 
i 002670 BUMP FORWARD SOFT ERROR COUNTER 
i 002710 RORT3: Ne ; BUMP ERRORS SOFT CNTR 
il ‘ TS: + RABLE ERROR CATOR 
i ° p00 C ite 1G CLEAR RECOVE E INDICATO 
HES FB ces : ps fi eet 
il T IN 
il ? Hoy 75, RY 
t Otii is ! Ise pC. NATP PRINT Ee REOELE MSS 
ce Oiiiio Cle BAABaS OCOR4E MOV #1’ TEMPS ‘SET FLAG 
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02 -Pll 17-JUN-77 09:Se SEG 0063 


TUAG 
2853 011116 O00404 BR RDRTSB 
2es4 O111 036777 002000 167460 RORTSA: BIT #2000, SEE IF PRINT INHIBITED 
eess O11! 014 BNE RORTG IF SO: BR 
geet 11130 0 026254 RORTSB: MOV 8MSG6S, R4 
> O11 1 TTOUTT PRINT RETRY TAG 
sees 1113 013703 000702 HOV RTCNT,R3 sont aren : 
11144 Apes 000646 eer TEMP3 ier IF BID NON-RECOVERABLE 
2861 O111S0 001 BEQ RORT6 ‘IF NOT: BR 
111 000646 CLR TEMP3 i CLEAR FLAG 
111 RTS ‘EXIT 
111 doses? 000702 RORT6: INC RTCNT 
11164 000702 000602 CMP RTCNT, RETRY SEE IF DONE 8 RETRIES 
11172 90 BNE T IF NOT: BR 
LZ 027244 MOV 8NSG115,R4 
i 1 i TTOUTT aap ;PRINT HARD ERROR MESSAGE 
5o63 ist? eyes o00s62 att #10000,RDCMD § ;SEE IF READ REVERSE 
2871 O11214 001003 17 :IF SO: 
i bose64 002730 NC RE HARD (RY) : F HARD ERROR CNTR 
74 O11 4 902750 RORT?7: INC RRHARD (R4 ) BUMP REVERSE HARD ERROR CNTR 
srt SHES BBsee OK: REO an 
2877 011232 013703 000722 NRTP: MOV ERSAV,R3 GET ER REGISTER 
2878 Olle36 104002 OC TPP BE INT ER 
2879 011240 004737 021130 ISR PC, FRPRT ‘PRINT F OR R 
2880 011244 000207 RTS pC : RETURN 
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DZTUAG.P11 17-JUN-77 09:52 SEG 0064 


“Ln aUTELOS (o> Spagna pamnnagree:ctemeapemenrste: 
SUBROUT INE : 


VIA ve . IVE wt TO PERFORM 
CORD ON T , 
He fer mo ei a ie cue ee 


We CONROE. SWIT WRN CLL) reno "0 TH RTEEN (13). 
WEEN EACH 


Ries ge AND MAY enue Y TYPING 
ENTERING A VALUE IN RESPONSE 


seas 
2 
860 
590 
2891 icy THE PR 
seas er eRrtEPEEREOE SOEs SAEREAAAAEHAINAEEEEHEEHECHEEREESS 
28% 011246 01277 OO0D0L 167334 YOZ: MOV BL,BTKS ;SET TTY ENABLE 
Seat bi ise2 53, Bree Ton Pe. STALL ;D0 YOZZLE STALL 
a a RS Se al 
ex00 11305 T1737 000030 000672 ROVE a3, TCL ET: oe SPACE FORWARD 
OT a oe 
Hes BE GRU one, Ht 
11346 ' Bea 18 i Mia aa 
it 1 040000 000666 HOV #40000, STAL ;SET TM STALL 
Sie GLRD Bre pomey comes yg Ae aE no warn orm 
e313 611806 Gaerat Bid000 00086 T $10900; ROD seer BS RD REVERSE 
Be BEE cose 7 ia. ee 
Bib HIRI? BIB coco comse «=f Manes te ee ue 
sie Stags 402 ft? yozto ;IF NOT: 
320 O114 R3 ;R3_= FC/2 
Re ds007 ooocve Rov a7 sacs sey REVE ae ere, OPES 
ges Olluss Tees vodka: oy FRAT SC fe 
det Lage 114 Noy YGZD; RT cece Cou 
gee 011474 167104 YOZD: BIT ,@SWR set TF a SHOULD CHECK ERRORS 
YO 
30 01180 000676 & THE LG ieee F "Tee MARK TIME 
Be Ol 010000 o00s62 ert go roc See 1 reso REVERSE 
394 O11 3 0334 HOY SROATA,R3 
BES bee See a 





NOS 
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DZTUAG.P11 


SEG 0065 


17-JUN-77 09:S2 


: 4 : "bs 

ae . 4 fa : . 2 3 

rm rig 3 29g ~ og BS 

: - g ba | — fe t Cea ee Gye : 

Bs See ent Bgut sat fees : pegergems © ¢ is = 

ae of BO RO Sucta me an e sete a. 8 aS > 
se POURS “GOS yea ayo ee & Ewl==Weex A ESS 
bs bitbibs bss cbinhintincshint. & Eabiibbiewes « deb. bs 


Sou aN vrtabact Sstapeananienespnghte 


—— ——— 


hh mh 8h eh ed 9 dh we hd 4 Ra a ge ee ee 
tant 4 DODO O OOOO OOOOOOOOoOOO hh ht hh hm a hh hh wh we ae Het 
OOO OOO0OO00000000 


ER EEL EE EER ECR TEETER ER EEA 





+, 


~- 
Hm 


esaan ere BEL TAG TLETY PROGRAM MACY11 30(1046) 22-JUN-77 08:44 PAGE 66 


nD 


Satett Mates n..... co, cea Gee 


TO DY Ie Teo 
a Pants ae 


WHEN 
Fions ent REQUIRED 


ae tn a haa 
1S MADE AT THE 


‘fw RS an) rior TO ASSURE THAT PROPER 


Se ai Ab AE ab aE aE SA a a ab a a a a a a ab a a a a a hh oa 





pear, ‘ 


1 OO066E BKSP: TAL. STAL 
piss te poosce Mee B OAL DO TURN AROUND STALL 
3010 O1 01 024743 000652 MOV erBG10,E , EMADOR 
301 o1 S313 166436 sRD8 A, aBA 
le Ol TST x ;SEE IF TM 
3013 Ol 1440 BEQ BO ‘IF NOT: BR 
3014 b1c064 b1e777 77777 bbues MOV -1,9FC 
3201S Ol 12737 MOV 832 MTC1 
3ie 012100 012737 Olelie MOV tM,R 
3017 012106 137 Gell JMP TAPG : SPACE TO T 
2018 Diet ie 036777 010000 166466 BKTM: BIT #10000, 2SHR af. SyuLo CHECK ERROR 
3020 Olel2ze O1 02614 000652 MOV 8MSGSS, EMADOR 
302 12190 000004 166364 BIT 84. 30S am IF T™ 
355 lel 1006 BNE BKTMO :IF SO: BR 
3023 012140 012737 033436 021104 MOV @RDATA, CADER 
aes Bieta 020206 Jar PC ERT :PRINT ERROR 
3026 bigis4 012703 033436 BKTMO HOV sROATA,R3 
oS 55 Bist Br phoces BO MOV RENT fo 
3065 Gig! Con RO ;BUILD SPACE AMOUNT 
3031 012174 012737 024743 000652 MOV 8NSGIO,EMADOR ;SET ERROR MESG ADDRESS 
3032 O01 cae j MOV RO. aFC 
03 1 1 900672 BKRT: MOV #32, MTC1 
l2e14 O1 MOV 881 RTRN BE RETURN ADDRESS 
3035 Ol 1 MOV RO, STAL SET INTERRUPT TIME MULTIPLIER 
30% O01 137 0211 JMP TAPS -GO DO SPACE 
3037 O01 % Bl MOV SRDATA,R3 
es: i 39 OO0GEE Be ian rete cra DO STALL 
3040 Olecso 004737 Cleese JSR ,STAL : STALL 
3041 Ol2254 07 RTS LEXIT 


s&s 


id 


Te- 


CO6 
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pS TuAG 11 l oyun» 68. ki SEG 0067 


'F--tahsil-t-trt-+-401-Sallalahahlaiahablaialablehalaheeielahcleiaiaileiaiaileleisiiaisiaiie 
;STALL ROUTI 


THIS ROUTINE IS USED TO PROVIDE SOFTWARE DELAYS 


ned er ra 


TERCRURMNTOR SES TREE 


I 
:S I DURING THE YOZZLE ROUT 
PeVITIrt stiri tri iiiittitiiiititti ieee 
012256 005337 000666 STALL: DEC STAL 
Oleebe 003375 BNE STALL : DELAY 
012264 ocd207 RTS PC EXIT 
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OZTUAG.P11 17-JUN-77 09:S2 


Se ce ee 
CHARACTER COUNT GENERATOR: 
TH vIA 
‘mang Greb YO. GEnERATE fl RANOOH 

SMITH He of OVEN W 

a em rhe at & 
Lint? ts TueNTY (20) 19 FOUR THOUSAND 
PER RECORD. 


seen passeenescaneseecbesssecssersieseuenenasssssees 


p50! BIC 8! RANSAV 
Be Tees 177777 014360 nov ei rer ra 


5 SEER AEE ARSE dE dg A Ed dd dE a EE a aaa 
; RANDOM RECORD COUNT GENERATOR: 


‘THIS ROUTINE ENTERED VIA CONSOLE SWITCH SIX (6) 
18 USED TQ GENERA —— NUMBER OF RECORDS 
; THE CINITS Ae One (1) TO FIVE HUNDRED (S00) OCTAL 


eretertmtrerrtttritttitit ttt ttt tt ttt i etree reece. 


RPEFEVERAM Lit ibis co SEAMS pRAS sida 


fore 


012326 £12702 000001 RCNTR: MOV 81,Re sSET LOW LIMIT 
012332 012701 000500 MOV 8500, R1 *SET HIGH LIMIT 
012336 004737 Oe JSR PC. RANG :GO GENERAT R 
dlea4e 913737 000626 op0ss4 MOY RANSAV, RCNT :SET RECORD COUNT 
612350 900207 RTS PC ‘EXIT 


Cad Cds 


+e +6 


: 


. 


LO C0L0 CI L0 WII LUI LUI LI I WII (II I II WI I (I I GG N 
a et we att of tt wt htt et nt et tf tt ttt tte ott tt es tt _ 


PVR RLON S55 IFHESHHASSBVRREEREBBBURRPON” Siow Von con- oS VER ES 
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5 eA AEE dg A a a A da a A de a a a a 
; TEST CONDITION ENTRY ROUTINE: 







i THIS, Rou ROUTI TO ALLOW THE OPERATOR 

i‘ t te Fr THE NECESSARY PARAMETERS 

eles eet 

ey ye THIS ROUTINE IS TO ESTABLISH 
TO BE TESTED. THIS TABLE 

coversts 0 FOR OF ONE (1) TO 

iE EACH R CONTAINS THE 


5 
UPON INITIAL STARTING 
‘Sune ON I 
ZIN RESPONSE TO REQUESTS AT THE TTY. 
: MAY iN ANY ORDER. EACH 
15 CHECKE LEGALITY BEFORE BEING 


S PR 

The 
UPON C 1 HE DEVICE TABLE, REQUESTS 
at PRI OR ENTRY OF CHARAC 


TERS 
RE BLOCK. THE 
phinis ete ree oe 
S THE TAPE MARK OPTION. 
Seen THE REGU rene Thess WITH A ONE (1) 
sMTLL of RI A Mh AT THE 
iT T0 Seth ae er Spare AND REVERSE 
3 WRITTING 1H "ato ¢ a 
OTSA ECE ROUT ROUTINES % pect T NO T TO BE PRESENT. 
i THE LAST QUESTS ARE FOR ENTRY OF THE DESIRED 
* WRIT ARO: T 
see rckecsecbecsresscseecessesnecuencuaussaunerenenstes 
g1296e 37 000624 TINP: TST TINE SEE IF IF SHOULD INPUT FROM TTY 
12356 1 BNE TINPA 
012360 TS pC sEXIT 
12362 005037 74 TINPA: CLR UNP TABLE F 
1 005130 CLR REOTC clean £0 unit COUNTER 
1 1¢700 000619 MOV #10,RO sab! 8 
j 1 00074 MOV sUNI RL :SET START OF Tebte 
t ee ae (Bis CLEAR T bone 
12406 001375 BNE TINPS IF NOT: 
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OZTUAG.P11 | 17-JUN-77 09:S2 SEG 0070 
3173 pterig ptert aay Mey airega! Rt E IF AUTO SEQ 

38 Gisied Balute , TTBS PE dT: BR cad 

3} Bi Suse 1 — TINPB1: TTOUTT hein: iBT ee NAME 

164 TEE 005737 014122 Ist SCVEL SEE off T CONVERSATION 
sib BiSdS! BOLE copuae Bre anc ou, RM 

3167 Olewe 104000 TTOUTT REQUEST STARTING REGISTER ADDRESS 

168 l 0 oo0s44 MOV REGS,R3 

169 1 1 OCTPP :PRINT CURRENT REG STAR 

l 1 01 o00s44 MOV SREGS, RS SAVE ADDRESS Location 
oie ie Ge ® ites Beet 

3135 1 1 t MOV #175400. Be SET L teat 

3174 012472 004737 023300 JSR PC. TTR : 

3 1 0 026461 HOV #SG75,R4 

l 1 108000 TTOUTT :GO REQUEST VECTOR ADDRESS 

31 1 1 000546 MOV VECT,R3 

3178 012510 OC TPP : PRINT VECTOR 

3179 biesie MOV 8VECT,RS > SE “ATION 

3180 Leo! HOV 83,R iSET 

318s bi SeSe MOV 81 BS ca 

3183 Oiesze JSR TtR iS cel fe 

3184 Ol MOV tT, RO : VECTO 

3185 Oles4e MOV @MTIAT,(RO)+ L vet WITH HANDLER ADDRESS 
3186 b1gSYe MOV 8340, (RO) : ITY 

187 Ol MOV RO GET STARTING REGISTER ADDRESS 
3188 O1 MOV 16,8 : SET REGIS 

3189 1 MOV acl Re GET F ADORE LOCATION 
313 i TINPBO: MOV RO, {R )+ :BUILD TABLE OF 

aig OL Bee Ri’ eee IF pone 

31 1 BNE TINPBO IF NOT: BR 

2134 Ot 1st RSE OF ; SEE IF AUTO SEQ 

at O1Se0e ST (SP )+ ‘RE SeT i rack POINTER 

3166 O1Se14 1567 TINPC: Bow =e Bras i TIAL Tze 

1% Di Stez "MOV ensS2,R4 ; 

1 TTOUTT ;REQUEST DRIVE NUMBER 
et in a 
303 1 MOV 87, : SET Lint? 

1 MOV 80; SET L 

1 p JSR PC’ TTR GO GET ORIVE NUMBER 

i oon Ry vl, ats 

1 165624 BT S000, acs SEE il reo 

1 BEQ TINPO IF NOT: 

19 Ol HOV 8MSG71,R4 

11 Ol TTOUTT :PRINT NED 
315 S130 a 
3214 O1e71e BISB #8100,(R4) ;CLEAR TRE 
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DZTURG.P11  17-JUN-77 09:S2 SEG 0071 
at pera Te 025470 TINPG Sov tases RY spindbonait tis 
zu 1 - Trourt : : sPRINT UN UNIT NUMBER REQUEST 
35/8 1 l ream MOV TEMB2, RS Pat BECCRIPTION BUFFER ADDRESS 
3220 Ol 1 MOV #1,R ; SET OF CHARAC TERS TO INPUT 
#61 1 1 MOV a Re ;SET MAXIMUM LIAIT 
ere baer Be a a egos 
et ieee Berar Oboes ae a a re 
1 000674 TST is 30 RST ENTRY 
SB ties Br On mn 
3228 1e77e a3 sa -. BR TINPO 446 ELSE RETRY 
$33 Bod 1 eee 000746 : MOV 8-1 UNI(RO) ;SET END UNIT TABLE 
3231 Tene 000137 01 7 =. IMP TaNPec GO GET RECORD COUNT 
5% iste Busse8 000746 7 ts 87, UN1(RO) ;CLEAR UNIT NUMBER 
1 4 ISR PC TBQSI "GO LOAD UNIT NUMBER TO PROPER POSITION 
1 1 LbsHbe #40, 
i i t 470 NOY owneoS 2 IT 
see = e 
$% OL Ses ea tPeuse TINPOC: BIT : BN a SEE, Mr give SENT 
3040 O01 0 026161 TTS ‘ 
3241 eee Teaood POUT ;PRINT NON-EXIST SLAVE 
a 013070 012720 IMP TI ; 
13074 142011 165434 TINPOD: CMP #18 11,207 :44G SEE IF 9TRK TMO2, TULE/TELE 
3244 013102 BEQ T : : BR 
3245 13104 MOV sMSGSO,R4 ‘ILLEGAL DRIVE TYPE 
3246 01311 TTOUTT :GO PRINT 
7? O1311 MOV a0T,R3 
131 OC TPP :PRINT DRIVE TYPE REGISTER 
131 TINPOE: MOV 8SG9, R4 
3250 0131 TTOUTT ;PRINT SERIAL NUMBER TAG 
131 MOV sn R3 
131 JSR SNPT ;PRINT SERIAL NUMBER 
13138 0 TINPL: MOV #5633, R4 
131 TrourT :PRINT DENSITY REQUEST 
1314 C TEMPe2 °C 
r 160 MOY a1,R : OF CHARACTERS TO INPUT 
131 MOV 87, : IMUM INIT 
13160 MOV 49, : SET INIA MIT 
131 JSR TTR : NS 
13170 TST TEMP : F HAVE NEW PARAMETER 
13174 BEQ TINP : 1 
i % BIC ‘ 400 UDES ; FRG TER 
13210 MSR pe +83. : ae ny Tato PROPER POSITION 
13214 TINP2: Hoy #$G34, RY 
} TTOUTT :PRINT PARITY REQUEST 
1 CLR TEMPe2 ;CLR BUFFER 
l MOV #1,R : SET R OF CHARACTERS 1 TO INPUT 
i MOY ; : SET MUM LIMIT 
2270 «81 MOV 80/83 :SET MINIMUM LIMIT 
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Soe Un TERES SAUTER USN UIOTERO BSS NOOSA. 


RR ere 
NOW £WITUeE 
DOONOOOOOO OOOO OOO OOO OOOO OOOO OOOOOOOOOO000000000 


1 


20 =o - +0 +h Oo bh = 8-0 -F—- > - 6 - > + b--+0-O— b= b= b— b= b= b= b= &—- b= & =< b= P= b- bb B= O— 0 B= b— P= B= =O P= = = BP = = he 


RanmRaNeR Is aRee meen 


Repo 
om 
co 


Seon 


oOo 






Apa ea ORES | 
£oO 


TINP2A: 


TINP2B: 


TINP2C: 


TINP3: 


Ht 
“3 


goan4 


38 


4GSS35 


SSS SEES eSB Se tee tae e nes 


333 


QUTT 


3 


SSSSRSSSSiSs 


OUTT 


338 
<—<wD- 
* 
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BAG RSA? 
ad 8s8ia3 
a RS 


bs 
po 


;GO_INPUT PARITY 
;SEE IF HAVE NEW PARAMETER 


peri een PARAMETER 
a Se TTT On PACTOR 


:G0 PARITY 5 OBROPER POSITION 
;REQUEST FORMAT 


L 
UNIT POINTER 


;SET UNIT EOT COUNTER 
;PRINT RECORD COUNT REQUEST 


"RECORD COUNT  AOORE 


is NUMBER OF ai TO INPUT 
a ia pinteur Cin nt 

Save RECORD COUNT 

;PRINT CHARACTER COUNT REQUEST 


:PR NT CHAR OU 
"OF CHAR KABRACTERS” 33 INPUT 
: MUM & 
T et MUM IAT 


CORPC TRENT 
Shae aro 


CLEAR Ae DATA FLAG 


Pa of CHARAC Pre fo INPUT 





SEG 0072 


027 


REGS IodSSA eRe RRC RRO RAAT ANIRRORSS tee eResaRRROOROROSS | 


17-JUN-77 


013872 Ole70e 


ao 


SEs 


oO-or~ 
pas 


a 





SE ISPRETREAURONN SRORSOERELRRERRR MESSRS 


55 


—— 
£o 





SSSEESATOSRGESEEEN SSS Sse ver 


2-0-6 +0 +0 = 0 =0—-& += 6-0 = O- &- O— & + OO - b+ b- > +O = d= B= O-- b= b= & - b - & ~ & b= Bh OB O&O; br —  -  = = O — O-- 0 bh 


1 
012701 


S 





TINP4: 
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22-JUN-77 08:44 PAGE 73 


TSTAL ,R3 
sTSTAL,RS 
#6,R1 


;SET MAXIMUM aut 

FP a re 

;REQUEST TM 
s PRINT HP hoon ™ FLAG SETTING 


ist eat 


LIM 
iBT LOWER CIniT 
M 1=YES 


;REQUEST INTERCHANGE READ 


NT CURRENT SETTING 
CET FLAG ADDRESS 


at DePeR LIniT 


ees 


REQUEST SINGLE PASS 


PRINT T SETTING 
SET aooness OFF 
SET SIZE OF RE 
SET LIMIT 
r MIT 


: SEE IF SHORT CONVERSATION 
;IF SO: BR 


;PRINT READ STALL REQUEST 


NUMBER OF [ omen ens TO INPUT 


rs "READ STALL -AODRESS 


T 7 BIN Ct LIMIT 
READ 


;G0 GET STALL 

;PRINT WRITE STAILL REQUEST 
;PRINT STALL 

SET WRITE STALL ADDRESS 


Z 


OF pepe TERS TO INPUT 


| En 
TM ahs mUIRET 


;PRINT TURN AROUND STALL REQUEST 


;PRINT TA STALL 
‘get TURN AROUND STAL 


T NUMBER OF 


OF CHARAC 


fe 


ADORESS 
RS TO INPUT 





SEG 0073 
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DZ2TUAG.P11  17-JUN-77 09:S2 : SEG 0074 
3383 914190 912708 77777 MOV e1 R2 ;SET MAXIMUM LIMIT 

ee fie Gare foam ate 

ser O14 erat pee TINPX: CLR SCOFL OO ERE SHORT CONVE SATION FLAG 
3387 014120 000207 RTS t EX 

3388 Ol4le2 000000 SCVFL: 0 :SHORT CONVERSATION FLAG 

Ee = sUNIT DESCRIPTION POSITIONING SUBROUTINE ##eeeeeee 
3392 014124 00024 TPOS: CLC 

3393 O14iee 006137 000644 ROL TENPe : POSITION CHARACTER 

$3¢¢ Baia ieias oft TPOS iF wor eoae 

339% 014136 013700 000674 TPOS1: MOV UNP. RO ‘LOAD UNIT POINTER 

3397 Dive 000644 O00746 BIS TEMP2,UNI(RO) ;LOAD CHARACTER INTO UNI(RO) 
3398 614150 5 pC ‘EXIT 


i 
8] 
wo 


TMO2-TU16/TE16 DATA RELIABILITY PROGRAM NACYL1 30(1046) 22-JUN-77 08:44 PAGE 75 
D2TUAG.P11  17-JUN-77 09:52 ‘SEG 0075 


5 eS A a a a ddd a a a 
DATA SETUP ROUTINE: 


{THIS ROUTINE IS ee. Th, phd INTO_THE ENTIRE 
> re “td PATT 


ETE Palate ag eee ll eds berram 0 

ICH 
Lana CALLED BTC OTC. patie “ 
he ogy 


aso USED TO CLEAR OUT T 
OCTAL CHARACTERS) BEFORE EACH 


eee ESSE SS Ey HEREHAEAEEARAEHEEAEOEEEEEHEEHOREEEEES. 


BaRnER ee 


eee ee eeereyy ys 
DO VT £ we OD 


810000 164240 DSI: BI sidooa. sor wy 
of BUFFER 






14ise 005737 015122 OSUP: TST ROFL SEE IF ae RANDOM DATA 
20 eB ee 000734 OSO: aot OF ‘SEE IF AUTO ef 
21 014164 O01 BEQ :IF NOT: 
14166 Bps799 000S60 TST PATRN : SEE EE IF AUTO RANDOM 
353 14174 Nhe 015054 ‘ia: Be ba TR iF II re) BE NERATE RANDOM DATA 
3425 01 000207 RTS PC : RETURN 
ae iei5 000560 014360 OSOC: CMP PATRN, PATS : F PATTERN 
1421 MOV :GET UNIT DESCRIPTION 
14 77767 BIC 8177767,R3 ; PARITY 
1 14362 CMP , oft LAST TIME 
; 14550 4362 Soy Boo B ARS 
Er i CES at at PC, CRCLRC pod EXPT CRC/LRC 
35 (Ol 30 DSOA: MOV SUDATA, R3 OF FER 
% 1 Gbosed MOV PATRN. RI Ri = ada cetectoR” 
1 14 MOV R1,PATS 
# 000001 ADD #1;Ri 
1 Rl eee SPT TERN, SELECTOR EVEN 





wns 
OEDQ00OOOOO0000000000000000000022000000 





Q soe ; 
MOV 
MOV sWOA Ma Ser AR 
gk DSe: IC #140300,(R1)+ =; FOR 7 CH 
Cc ; 4 i 
SL535o sen: ate. : ERA ; XPT CRC/LRC 
36 "MOV SROATA, Ri Cleat Buren TART 
OS4: R (Rl )+ :C FER 
C : ar. ALL 
4 i T: BR 
090552 14362 MOV PARS :GET UNIT ESCRIPTION 
177767 O14 BIC 8177967,PARS § :MASK PARI 


TMO2-TU16/TE16 DATA RELIABILITY PROGRAM MACY11 30(1046) 22-JUN-77 08:44 PAGE 76 


DZ2TUAG.P11  17-JUN-77 09:52 SEG 0076 
3456 014356 000207 RTS PC  sEXIT 
3457 014360 177777 Pats: -1 ‘PATTERN NUMBER SAVE 
3158 014362 000000 PARS: 0 
z160 EXTERNAL DATA INPUT FROM H/S READER (256 CHARACTER MAXIMUM) 
3462 O1N364 005737 014526 DATO: TST DOFL i++ BRANCH IF EXTERNAL INPUT 
a or ee ee 
Eats] 14402 164214 : CLR aPRB : FFER 
3467 Ol 4206 CLR pk :C pe READER STATUS 
sib tha 42 CUR 1 ‘CLEAR FOR USE AS CHARACTER FLAG 
70 rt 1 EMI 7O atest: OATOB: T 3g sp ‘3 Or eee ir DONE 
Sur) Bias | toba7 ; Aim Pet: 
a72 O12 005001 > CLR Ri Pe * CLEAR pak OCATION 
eae ste Abesos ABa28S neve EMP! ieee Reve FOUND START CHARACTER 
3475 O14444 l BNE DATOC : BR 
7s BLS i Brg Eat CEReTER 1 0 
1 1 1 000642 MOV #1, TEMP *EL T CHARACTER FOUND FLAG 
ra bhces Sine SBR my iieeh bar Bact 
$180 1 1 MOV Ri :SAVE DA SIZE 
1 Ol BR DATOA :+4G GO CT T DATA CHAR 
144 10 DATOC: MOVB R1,(R3)+ * LOAD BUFFER 
144 DEC R2 ‘SEE IF READ ALL 
14474 DATOA : IF a : ABR 
144 1 30 DATOD: MOV SWDATA, RI ‘Rl = WRITE BUFFER 
1 1 44 MOV TEMP2, Re ‘Re = ise DATA FIELD 
1 DATOE: MOVB (R1)+ (R304 : REPEA + bone OF DATA FIELD 
68 O1451 033436 CMP aRORTA,R ise IF 
14514 BGI DATOF 
1451 S PC 5 $46 ey 
1 Ol DATOF: DEC R2 AT END OF DATA FIELD 
1 1371 BNE bar gee BR 
1 4 T 446 eT RESTART FILL 
14526 000000 COFL: 0 ‘EXTERNAL DATA FLAG=i IF ALREADY DONE 


RP 


TMO2-TU16/TE16 DATA RELIABILITY PROGRAM MACY11 30(1046) 22-JUN-77 08:44 PAGE 77 ; 
OZTUAG.P11 17-JUN-77 09:Se SEG 0077 


ti ;ALL ONES 4 2 ee 
98 014530 012701 177777 DATL: nov 8-1 + ;R1=DATA ps 
oo200e + 
20 tiedd 1 AT 8 ROY i , (Ra) + oat eee 
14542 C I 
3203 14544 001375 BNE DATIB IF NOT: BR 
014546 000207 RTS PC :44G RETURN 
sALL ZEROSHHeHEHHEEE 
014550 005001 DAT2: CLR RI :R1=DATA 
014552 000770 BR DATIA :+4G LOAD BUFFER 
if ;WALKING ONE siti tate 
$e O1NS4 012701 000001 DAT3: HOY #1,R1 ;R1=DATA 
214 Olsee 1 004004 DAT3A: MOV #4004, R2 ;R2=CHARACTER COUNT+4 
is Ol 1101 DAT3B: MOVB RI, (R3)¢ ‘LOAD BUFFER 
318 14570 106101 ROLB ss RL “SET NEXT CHARACTER 
#1 14572 DEC Re i SEE wih DONE 
18 014574 001 138 : T: BR 
3519 014576 000207 RTS PC +46 RETURN 
;WALKING ZEROs#eeeHEEEE 
014600 012701 000376 DATY: MOV 8376,R1 ;RI=START OF DATA 
014604 ees SEC 
014606 000765 BR DAT3A ;+4G LOAD BUFFER 


sALTERNATING ONE/ZERO###REEE EES 


cee 


DATS: MOV 852525, R1 ;R1=DATA 
014614 000747 BR DATIA :+4G LOAD BUFFER 
; ALTERNATING Dec tat tii 
O14616 012701 12S2s2 DAT6: MOV . Rl sR1=DATA 
Bates 000744 BR DATIA +4G LOAD BUFFER 
;ONE/ZERO IN ALTERNATING WORDS##exeeeane 
14624 O1 125252 DAT?: MOV #125252, Ri ;SET WORD 1 
Ea i ot 001002 HOV $ioge eM HET PBER OF ENTRIES 
43 O01 10123 DAT7A NOV RI, (R3)+ We NUORE 1 
44 01464 3 Re; (R3)¢ : WORD 
ie r ise IF BONE 
1 1374 DAT7A : T: BR 
EH 146 4 TS PC 3 44G RETURN 


TMO2-TUL6/TE16 DATA RELIABILITY PROGRAM MACY11 
DZTUAG.P1i 09:Se 


nn i 


BERANE Si 


Gt = b-=t P-= p= hs pa pe 


17-JUN-77 


177400 


a 


2 


DATO: 


DATLOA: 


DATLI: 


DAT1I1A: 


DAT 12: 


DAT12A: 


DAT13: 


DAT14: 


DATLYA: 


30(1046) 22-JUN-77 08:44 PAGE 78 
SEG 0078 


;WALKING ONE/ALL ONE IN ALTERNATING CHARS#### 


MOV #2002 , Re ;SET BUFFER SIZE 
we #1,R1 sSET WALK BASE 
nov #177400, (R3) ;LOAD ALL ONE BYTE 
IS R1, (R3)+ * LOAD BYTE 
B R ; WALK 
T10A ;D0 F BUFFER 

Ris Pt ee RETURN 

;ALL BITS O-377eeeeeeeeee 
CLR Rr ;R1=STARTING DATA 


MOV gor. ; RE=CHARAC cTER COUNT+4 
ee Rd’ ‘BURP BATA 

DEC Re ;SEE IF 

pe paisa TF NOr, ee 

;ALL BITS 377-Oeeeeeeeeee 

MOV #377,R1 ;RI=STARTING DATA 


MOV #4004, Re : ER COUNT+4 
MOVE R1, (R3)4+ Rasa TE 

CB Re : TA 

C ; IF DONE 
BNE paTian ;IF NOT: BR 
RTS +46 RETURN 
;ALTERNATING CHARACTERS 0 AND 377##eeeeeEEE 
MOV #377,R1 ‘Rl = DATA 
IMP DATIA ‘AD BUFFER 


;WALKING ZERO/ALL ZERO IN ALTERNATING CHARS#t#ee# 
a7ehi’ = s(f8ET WALK GRE 

ie (R3)+ iSLERR neve 
gre 


07 


TMO2-TU16/TE16 DATA Me SIL IT PROGRAM MACY11 30(1046) 2@2-JUN-77 08:44 PAGE 79 
17-JUN-77 09: 


DZTUAG.P11 SEG 0079 
re sAUTO SEQUENCE PATTERN##Heeeeee 
1 1 T15: MOV NTRIES 
31 ot 10 1e701 ae tee HOV teats, 3 ea td part 
15014 01 10 v ; PATTE 
3603 015029 12123 DATISB: MOV thie, (R3)+ iE ition 
ee fine br: ee 
1 : DEC Re Ss i SEE IF DONE BUFER 
“sc 8 . 7 
Se ee Bay n OR LAL 
180: APATS: OQ 
%10 015038 177400 177400 
311 15040 000377 377 
Bie 1 000000 0 
13 015044 177777 -1 
3614 015046 000377 377 
%15 O150S0 177400 177400 
sib 015052 177777 -1 
$18 ;RANDOM DATA GENERATOR SUBROUTINE S#eteeeeee 
%20 015054 013704 O00SSE DATR: MOV FMCNT RY :SET NUMBER OF FRAMES 
%el 015060 b1e7G3 07430 nov BhOATA, RS i SET ROORESS OF START OF BUFFER 
$55 seaaiat Beane CLR Re’ BET LOW LIMIT 
%e4 O01 023246 DATRO: JSR PC RANG - GO NUMBER 
255 1 000626 MOV RANSAV,(R3)+ iL 
i i : INC RA : SEE “a F Done WHOLE BUFFER 
$5, Blelbe fos59 o1ue70 ee ORT De 7 cH 
%29 015112 012737 000001 015122 MOV 81, ROFL ‘SET RANDOM DATA FLAG 
3630 015120 000207 RTS PC ‘EXIT 
363: O1&122 900000 ROFL: 0 "RANDOM DATA SELECT FLAG 


ee 


CO? 


-TU1L6/TE16 ate A RELIABILITY PROGRAM MACY11 30(1046) 22-JUN-77 08:44 PAGE 80 
TUAG.P11 SEG 0080 
3632 
%33 5 LEASSEASSLAAELSLSSLLE SLAG RSLS EASE RAL SSAA EERE ELSES SES 
=e ; CRC/LRC CHARACTER BUILD; 

THIS ROUTINE WILL T AND SAVE THE EXPECTED 

3637 AnD LAC CHARGERS a ROSORD Nc TO DATA AND 
3638 RECORD. SIze IF SOR OPERETING 
2a eee a ciceatoacersrreecasceussusrtsuauensussesseeseees 
3641 015124 013700 oo0sse CRCLRC: MOV FMCNT, RO -SET RECORD SIZE 
342 015130 005400 NEG RO 
3643 151 027430 MOV sHOATA, Ri SET START OF BUFFER 
3644 0151 015506 CLR x 
3645 g15142 111 : CLO: MOVB (RI ) RY iGET CHARACTER nnn 
= bi8is0 4 pt eae 15h pt CoP :X BR naRAe te 
oe HEE aoe fan TO TNO CARRY. E 
$7 GiEiee o52704 000400 BIS sho, RY ‘SET BIT NINE 

151 1 CLI: RY SAVE CHARACTER 
SP Ry RAR 
plese poate 777, gre Se27703 RS 

| 

ae Oise E70 Anas 36 Ry’ 

15210 OS0SC 1s RS,RY sCOMPLIMENT BITS 2,3,4,5 
3659 Oisele 010437 015506 CL2: MOV RY! XORS 
ag biEeas 1401 BES CLLAST IF LAST CHARACTER: BR 
%be (Ol 7 BR CLO °+4G GET NEXT 
3663 015224 013704 015506 CLLAST: MOV XORS, RY 
Se ee Gly se me 

of t _— Bre i 1a COMPLIMENT ALL BUT BITS 385 
ae, bt eSue 7 oto BIS ? . 
368 01 1 15506 015510 MOV XORS EXCRC -SAVE EXPECTED CRC 
$53 Bt : Ne itn 
71 ot 7 30 Hoy SWDATA, RL D0 EXPT LRC 
373 pes e 1 _— CL3: MOVB  (R1),R4 
374 O1 015334 JSR pc, CLP :GET PARITY 
£75 ot ° 015462 SR BC KOR !XOR CHARACTER 
07 biBai2 1371 BNE CL3 ;00 ALL FOR LRC 

78 015314 013704 015510 MOV EXCRC, RY 
73 01 737 01542 JSR Pc. xOR :0R CRC TO DATA 

1 Cisse o1ssie2 MOV XORS , EXLRC VE EXPT LRC 

i Ol RTS PC TURN 

se8 ie OW CLP: ‘TST Ret IF 0 CHAR 

1 00101 BNE CLPE IF NOT: 

j 000010 oo0sse BI 810, UDES fi wr. EVEN PARITY 

1 Q CL 

1 j 000420 MOV 8420, R4 :SET 0 CHAR EVEN PARITY 
3667 O1€364 00620: INC Ri :BUMP POINTER 


4 
oe 
bt 





BEE 
ye 2 = 
Ks @ @ 3 
qa «x iv) oOo z 
z f- @ - 7 ox 
s £ oot! 
. a 2 533 
ee ae 
pik S 5 oshte 
z om ee oe ce ee ee eo oo eeeesese 
N38 
Or gen ws 
2 eee ore, 
a Re re Sie fies oe ezOS 
2 
= Ede Sees uv Scr yee wmasoonese 
= . Es teats 
S4a0 3 5 ok 238 
74 Sy 
w 
; ee 8 
> 
cr, 285 3% 3228 3a 
iG & a8 
a as 3 88 8 2a 


| ae iE 
uuiaohaseeepeetestaee ae ee simon 


OE OF OG oh dh OG hE 8 Oh EE et He itary 
QOOOWWOOWWOOHOOOWOWHOO00800000000 28000 


| TARaanmnn anc EECORERE ERSRERRRRRERS 


TNO2-TU16/TE16 DATA 


DZTUAG.P11 


SEG cose 


EO? 


se PROGRAM MACY11 30(1046) 22-JUN-77 08:44 PAGE Be 


+ SELSSSLSRESE SLES LARA E SELLS SES SSSEE LEER ERTS SHARE R ASSES 


;DATA CHECK SUBROUTINE: 


a 
17-JUN 


BSSSSSS 


TMO2-TUl6/TE16 DAT 
DZTUAG.Pil 


CHARACTER 
HE EXPECTED CHARACTER. 


ane 


ith 
He 
fav 


(13). 
s SHEELSSSSSSL SELLERS ESSERE EEE EEE EEE EEE EEE EEE 


' 
SAE IS SP 
0 
NE TO 
PI 
OF 
ING 
ITCH THI 


THI 

OF 

ANY 
DATA 
CONSOLE 


ea 

‘ as 

ay = ane eas 

Sa Sa» ¢ as 8 : akg 

—" rt 35 
Gt city, esau SY 
oa nndet 3B ey & s¢ 5 G86 Sek ee 
gigi secitlarncarteecd $oeyits Segui 
HS SS rai HORE pEMDESES SU eMORNS 
ee 


_ Ht} + pa: 


ze 


ay 
és Hee Boe bes ae bo rer eee 
sdeaiiee Pgnyrpigevy, Soe SSL SSNS ISSSh gens 


es ye 8g £8s S 
BS Bs SS ts 


a a o fs , a 
S gg ; 8 
oe Gees | EEE 


aS SS Ue BESS 
PTEn creer ers se teetens erasasans 


Sen fan pam pam pan fom fam fan an fon fan fan bon bon bom ban bon bon bon bon bon bon bon bon bon bon bap bon fon bon bom fan on bon an ban pan ban pas pen ba 
QOOWOWWWIBWOOOWKWOWO OOOOOOMOWOOAOWOWOOOOOWWOOMOMOOM. 


DCHKO: 


DCHK : 


a oo0sse 


oooted o00ss2 OFOA: 


: 
: 
: 


RERSBSRSRSRSRBRERERERESDNESERESERBRESERESASSASSSS 
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DZTUAG.P11 _17-JUN-77 09:52 SEG 0083 
1 CLC 
8 pt ess8 ena 000001 BITB #1, -(Re) -SEE IF BIT O = 1 
3780 : 1401 BEQ oF bao ‘IF NOT: BR 
ies 1 rf: DFOAO: Rbk (Re) 
1 j CLC 
3784 Ol 132712 000001 BITB — #1, (R2) 
3785 15780 001401 BEQ oF OAL 
ve Mees ip DFOAL: RoR (Re) sPOSITION BITS FOR REVERSE CORE DUMP 
3789 015760 132712 000001 BITB ~— #1, (R2) 
3790 1576 001401 BEQ pF bA2 
Pe en ieee nell: E tag 
3704 015774 132712 000001 BITB #1, (R2) 
3795 016000 bai 401 BEQ DF OA3 
1 00026 SEC 
1 teste: DFOA3: RORB (Re) 
1 INC Re RESET POINTER 
3799 16019 124142 OFORY: CMPB (RL) ,-(R2) TEST DATA CHARAC TER 
son ot § Tos047 ooDEsE es pe UF EAR BAO RECORD COUNTER 
302 1 000411 BR OFe 
3803 ol 122122 OFO: CMPB  (RI1)+,(R2)+ CHECK DATA 
se Gites 1osas? 000656 cL Bet ‘JF BAO bab RECORD CNTR 
1 1 OF1: J , DRPKF T AND PICKS 
By libs ieee ts 2 er Bau 
3 me ae 
3 160s Gae737 010000 000562 er 918000, ROCHD Bete  lcase 
3813 016060 000716 BR DFOA ee erin 
3614 01 000664 OF3: CLR HORFL ae "eo bath 
1S O01 000704 TST DERFL woe DATA ERROR 
16 Ol 4 BEG OFX 
1? 01 000706 ST SERFL 
Te i eae a BNE DEX as = NOT DATA ERROR ONLY: BR 
i 108 eye o00sé2 BIT #10000, ROCHO :SEE IF READ REVERSE 
ees 161 Bore 001130 Inc TERI (RY) : DATA ERROR FORWARD COUNTER 
16! 4 00117 4: V1CR4) ;BUMP REVERSE DATA ERROR 
SGC a ea a cs 





————— — eee Oe  — ——-— 


TMO2-TUL6/TE16 DATA a ag es hd PROGRAM MACY11 30(1046) 22-JUN-77 08:44 PAGE 84 


DZTUAG. P11 17-JUN-77 SEG 0084 


5 EEE a a a dd a a ak a 
ERROR SUBROUTINE : 


buts SUBROUTINE IS USED TO PRINT OUT ANY 


ie en 


( OF AN ETC) 
‘TS PRI Y ONCE F “ee Fie BAO. 
“A NUMBER IVE BAD 
: F (10) CHARACTERS 
ARE F tInas RE INDICATING 
NEXT 


3 TT SHIT ol EA One 
The Orenaton ra Cause the Procra 1 HALT ON ANY ERROR 
‘BY SETTING CONSOL’ TCH FIF (15) TO A ONE. 


; SSSA S LALLA SLL SLL LLL ALLELE LEE RRE ERE ERE EEE EE ELSE 


SSEREEERREA LOS 014 GUUNUMUMGuUEr Es eee eerie 








01 032777 O02000 162446 DERR: BIT 82000, aSWR :SEE IF SHOULD PRINT ERRORS 
1 1067 BNE DERRY i#96 BRANCH IF 
1 000670 DERRO: INC PFLG i SET 
1 000664 TST HORFL SEE IF NOWE LOR INTED HEADER 
i a ane pe PAPRT Bernt: CYCLE NUMBER 
ot Bhe7oH Oeeees MOV #MSG1,R4 * LOAD MSG ADDR 
1 1 TTOUTT : PRINT 
1616 04 021130 JSR PC, FRPRT ‘PRINT F OR R 
1 024701 DERROA: MOV aMSG4, 
1 } TTOUTT ;PRINT CHAR NO. HEADER 
1é j MOV R2,R3 
if 033436 Sug aROATA,R3 sPOINT TO CHAR 
a 010000 o900sé2 art 4 , ROCMD :SEE EE IF RED READ REVERSE 
1g 1 MOY RS,R3 ‘ots CHAR ORUNBER 
ig 1 COM R3 
1g DERROB: OCTPP ;PRINT CHAR NUMBER 
le MOV emMSGe ,R4 
ig TIQUTT : i PRINT. EXPECTED DATA 
tf BO DERROL PE Nbr: BR 
le MOVB  -(R1).R3 :GET CHAR 
1g BR DERROO 
lt DERROC: MOVB -(R1),R3 LORD EXPECTED DATA 
328: 01 CERROO: JSR ¢, 00UT :GO PRINT CHAR 
3662 5) MOV aMSG3,R4 


SEG 008s 


HO? 
22-JUN-77 08:44 PAGE 85 


TMO2-TUL6/TE16 DATA RELIABILITY PROGRAM MACY11 30(1046) 


DZTUAG.P11 


r 
~ 


3 
». § ae Os os ee 
- e+ Ee! « a a: A tr 
ci 5 8 SSS 8 of & ot Fogtis oe 3 
ag puts 5 Boa “5 ad & ensote’ . BE. 8 
ee Ss ee ee af 
ges, goesoates =e Sug S88 Gecccoe Seae® 5 O2 & 
eSBs MB OMENS ere obbutge aaa pne® OF ee Ghee . RE 
Su — Sucott tr & Wet tt tat 9 mn es .. 
ety EHTESUAH. Eee BtAbtby gt.8 Sieseseseant. 8 oa b 


MD 


- 
g.% 4 as ee ae dete pat aaee 
ae te ASS SoSeece Sebenchgtes SoESeaaT 


genome softies? ogee sso Sergs ae Pa 


DERR1 

DERR2 

DERR3: 

DERRY: 

1s 

DERRY 

DERRS: Br 
Add 

DERRE: MOV 


010000 000562 
o00S62 

iB O006S6 
162244 


eo Hee a § gc FH eee) Eeeacas #2 ek 
SuEeErerE: SS SASK aS yA S aE 
YEE SGIEE SRANGD ERUMNAEeuso = NEBR TE UID IT HE OE RNIN YT RA 


Seer Ree tee teem Ream ica Reem Meee Ream Receems Recetas Necrn Boce Mitte Mcrae Meer Neco, Neceem Necoem een Neco Meco Meceee Neceme Mec, eee Meee Mee ee ee eee ee ee ee ee ee ee ee re ee ee ee ee ee ee ee ee oe ee oe eae eae oe ae 
AQOOOWOOOOOOO00OOO0O000000000 ANNWOOO0O00OOO000OL) 


A RRRAARRRRR ARMM RARE EE CR CE CERESERERERE RRR ERE RR ERE 





107 
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pz TURG-P Li 17?-JUN-77 09:52 SEG O0e 
3939 016574 005777 162006 DEREX: TST aSWR ;+4G BRANCH IF CONTINUE ON ERROR 

3940 016600 100012 BP ee DEREX! +46 

1m HEP coco ae F pines 

re lem ie oe a ee 

3944 O16b1e 032777 O02000 161766 BIT 82000, 2SHR :SEE T F SHOULD PRINT 

aa Bt pp se ea 016142 BERR iD NOT PRINT 

3947 016626 005037 000670 DEREX1: CLR PFLG ‘CLEAR FLAG 

3948 01663 b05237 000704 INC DERFL ; BUMP pata ERROR FLAG 

$343 16626 0002 RTS PC : RETURN 


SEG 0087 


JO? 
22-JUN-77 08:44 PAGE 87 


TMO2-TU16/TE16 DATA RELIABILITY PROGRAM MACY11 30( 1046) 
17-JUN-77 09:52 


OZTUAG.P11 


Dey 
C 
i 
“ire 

N TO A ONE 
THE CURRENT 


sue sbyaae ally . 
SOSSSESDRER SSMS coaeL Sage PEt OMe Ying 
‘ bieé 

a fee 
a noned hd ee 
3 


een us 


Ek kG kd RG hk a Gk kd dd a nk nd nd nd wd wd od wk wd od we wee 
QOQO0WOWOOOOOWO00O00000000 


CREAR REE ReRAREE RRR nn nee eEREERRREERERERR ERR GSS TOTS 


INE IS 


;DROPS AND PICKS SUBROUTINE: 
; THIS SUBROUT 


; i 

= S “ 

* w o = = 

: z “se g 2 g 
5 (Sus = 3 Sw & 
oy - Roe Se fas 8 
: epee wie: cid y So, sf Eo «a & 
cree gheg yg as Ses OES Ee See 
: Pees Be SseGafe Gaby Bete site o°°3 
ae Oo cond os ta. + o te. Pha +> ta. ss Qurtu 
>: i a-Ge “RE = “o- 2"S=E=E a“? 
gg se aan 2 gitSctomemeas See Sock 
x neta Pa : er Se ee er err ares 
se Orsee : 

Ps = 

x Ps 

ia as 

: : 

S : 

i al 

bs = 

: : 

: 

: = 


O3e777 002000 161532 








SEG 0088 


KO? 
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DZTUAG.P11 


ekg - z of : 
ear ae + — 
Piaknte SEZ Series 6 SS Yetta x oy Be 

a> SSesan- 5: &buaags E 3x E out e aoesy 
ee ee ee oto Be Bees B S mEee 


ee oot PLN = — ae = 
attzeeS.. wa ob tt z<< iS ; a cae . ieee 
SoMRSeLe, ohbvag teeth sise: BSuh 


ganSESEsc colvaneareeeTEDece?oeoeoets 


ci 
= 
Sa: 
2 s gf : mo 


i 8 : 
ea i Le ULE 
oe re 


= BEER eRe PERE Re R ERR NER ERC URR RRR OR ERCP EE EE 


A to ag hh 4 8 8 8 gt hd a ba hh a a ae ea a a OH OR Oe aa ae OH Ae OH aR Oe Oe 
QOOWOWOWWOWOOWOOOWOOOOWODBOBWWOOWOO0000000000000 


BIBS SST OTST ONS USO SUSU SUS pug pos SoeS SoS URUERER, 


DPCe: 


OO00E 

DPPRT: 
0007 

te 

0007 
DPPRTO 

000716 

000710 OPPRT1: Rov 
DPPRT2: 
DPPRTX 
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OZTUAG.P11 17-JUN-77 09:Se SEG 0089 
4059 
4060 5 REAAELAAASLELA ELLE LEAS LA ESLER E SEAR SEERA EERE EEE EES 
4061 ; STATUS CHECK SUBROUTINE: 
Mire : THIS NE I PERF ORM A B CHECK OF 
4064 at 5 oe Tie MRSS CONTROLLER RH11) AND THE TAPE 
qOEe GISTERS Ano eS BND SAT 
doe? ihe ates a fue 
4068 :C : OR at TA Is (DS) 
ons ERR con SPECIAL 
SoPi Are RTAIN 
T non i ee RTBIN TYPES 
GISTER (CC). THESE 
arts ie iP "26 eT TBUTS OF BAD 
Me re EXPECTED AND 
ONLY THOSE REGISTERS 
eV) AND ALL PRINTOUTS 
ING ZEROS. AS IN 
BY HEADER 
: oan HARDHARE UNDER TEST, THE BLOCKING 
NF ORMAT I THE ERROR TYPE 


ee ccosestehesocaesSOGEreeeerecsuaenuaaueensnesenenes 


SeaRRIERERER SAREE REIS IIa TIe oe 





17360 ERCHK: MOV FMCNT,R3 ;GET FRAME COUNT 
17364 BIT a1,R3 ; SEE wi 000 
17378 Bee 5 + BUMP COUNT 
i736 oo0sse2 oe a S30 UDES IF CORE DUMP 
i Bea EROB te NOT T: 
1741 ROR R3 FC/2 
17 000672 EROB: ee 810, TCI set tP WRITE oP 
174 o00s62 ? #10000, ROCMD 
174 BEQ EROA 
i og wor ar SET POINTER 
17442 BR ERE ' 
4100 iw EROA: 800 aR TA,R3 ;BUILD EXPT READ ADDRESS 
4] 1 ERI: ADD SWOATA,R3 ;BUILD EXPT WRITE ADDRESS 
3185 LPB ER2: MOV R3, CADER at aboRess 
ie my Hein 
ig 1Pire ER2A0: CLR if 1+" :CLEAR FLAGS 
4] 174 ER2AO 
4103 i ie 6A ;SEE_IF ROORESS OK 
4111 Ol NC Ri : RROR 
aie i 000672 ER2Al: BIT 810,HTCI Ps wane Been 
4135) ERea: 1S arc iSEE IF FCsO 
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17526 
17530 


Pope R rca Siri 


sis" 
o£ 


ts 
- 
OOO OOOOOOOO OOO OOO0OO0O0O00000 


- 
T sh b= OB Fb bs Bb OO Pb B= BO a Ob = = = = OF = B= BH eB th ee he 





RAI TS RAN ISNS ANTI SE RR DORSER EI 
8 
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001441 


021114 


000672 


ER2B: 


ER2C: 


ER2D: 





BEQ 
NC 


I 
2 
Q 
TST 
as 


DZ MS 
Sotoc 


aed fo Salar 


AZERE 
o-4 


ZR 
ue 
3008 +040 


Ro 
QNoe=~<e+0- 


aakente ate ae 
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SEG 0090 
IF SO: BR 
‘SET FC ERROR 
i$ IF SPACE OPER 
SEE IF TM TIME 
IF SO: BR 


;R3 = EXPT RECORD SIZE 
: F FC = EXPT 


SET FC ERROR FLAG 
3+4+G 

;SEE IF PE 
: F Pe ao REVERSE 
IF SO: BR 


;LOOK FOR EXPT = 2 


;GO CHECK FC FOR TM 
;SEE IF COUNT ERROR 


seer | his REG 
OR, UNIT NO. 


Lem 


ne OTHER ERRORS 
si: E ELTHER TRE OR MCPE 
ae 


F 1 TIME 
A REGIST R 

Pd F EVE erat 

; To 

sk F NO ERRORS EXCEPT FCE: BR 

fi IF TAPE MARK TIME 


Bulag mm 
OER TFENO OTHER ERR BITS ARE SET 
Seine. 


;IF IN PE MODE: BR 


SEG 0091 


NO7 
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if BO REAR OF UNKNOWN TAPES) 


xe & : a: 
¥ a = « ~ Sve 
at ee tre Te 
cums | SEMEE ie pitas tes OE 
ee ee ae 


eS " 
Bie Bbbedt ee 


Sante we ede cee son 


: 
i aS BB 
FES EE ee alii 
eee 


ER? 
ER10: 
ERPT: 
ERPTT: 


021112 ERPTGI: 
ERPTO: 


020000 160554 








TRREKRERABSSBSBRSSSKLSHKRLTRRKERS 
nn nd ka kk nd dd dd ad Od od wd wd 
FSTTITTITTITFTITFTITFTITFTITFTITFTITFTITFITITT 





B08 
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OZTURG.P11 SEG OC32 
4227 020342 O04 021130 JSR PC. FRPRT :PRINT F OR R 
a4 000676 TST THELG 
<=... 
02035) 026137 000652 sp BPSGB4, EMROOR 
De 3 Q E' 
rate: 1 026155 MOV ansGeb, RY ;PRINT TM 
S972 021110 ereti: tere R = 
02037¢ : 
C0376 1414 Q genes IF NG CONT ERROR: BR 
ics a! 2704 025137 MOV #MSG23, R4 
HC i TTOUTT :PRINT C1 TAG 
4238 Oe 160076 MOV ac1,R3 
OCTPP :PRINT CONTROL 1 
4 MOV #MSG230, R4 ‘PRINT CS TAG 4 
424] TTOUTT 
4242 MOV acs,R3 
4243 son OCTPP ;PRINT CONT STATUS 
ia Q pRees ;IF SO DRIVE ERROR: BR P 
MOV SMSG23E , RY 
4247 TTOUTT :PRINT DS TAG 
pi aS ,R3 
TPP ;PRINT DRIVE STATUS 
MOV 8MSG23F , RY 
1 TTOUTT :PRINT ER TAG 
pi GER, RI 
TPP ;PRINT DRIVE ERROR 
4254 ERPT3: TST BAER 
Q ERPTY ;IF NO BA ERRO?: BR 
4 V #MSG238 , R4 
TTOUTT :PRINT BA TAG 
4Pc8 MOV aBA,R3 
4269 OCTPP ;PRINT BUS ADDRESS 
000636 MOV #255 TOB 
4261 JSR PC. TOG ;PRINT / 
4 MOV CADER, R3 
4 OC TPP :PRINT EXPT BUS ADDRESS 
) ERPT4: TST FCER 
4265 BEQ ERPTS :IF NO FC ERROR: BR 
MOV 8MSG23C , RY 
TTOUTT :PRINT FC TAG 
MOV aFC,R3 
OCTPP :PRINT FRAME COUNT 
ERPTS: MOV #MSG23A, RY 
TTOUTT ;PRINT WC TAG 
MOV auc ,R3 
OCTPP sPRINT WORD COUNT 
TST CRC 
Q ERP ;IF NO CRC ERROR: BR 
MOV 8MSGSB8, RY 
TTOUTT ;PRINT CRC TAG 
MOV acc Ra 
BIC #177000,R3 
OC TPP :PRINT ACTUAL CRC 
000636 MOV #2SS, TOB 
ISR pc, 766 


a ote PROGRAM MACY11 30(1046) 22-JUN-77 08:44 PAGE 92 
UN- $ 


iF 





TNO2-TU16/TE16 DAT 
' 1?-J SEG 0092 
013703 015510 MOV EXCRC,R3 
NOOE OCTPP sPRINT EXPECTED CRC 
lOOE 021116 ERPTSA: 3 LRCER 
rw 416 Q ERP sIF NO LRC ERROR: BR 
57% 12708 026210 MOV 9,R4 
BMG TTOUTT ;PRINT LRC TAG 
BSD OO 021122 MOV ACTLRC,R3 
OCTPP sPRINT ACTUAL LRC 
Pe Oe 14 - ne Bes Foae 
4535 1 preet MOV EXLRC,R3 
4294 OC TPP ;PRINT EXPECTED LRC 
4e95 : 021112 ERPTE: TST 
429 O20702 001422 BEQ ERPT7 :IF NO DRIVE ERROR: BR 
oo2zou0 oo0sse T , UDES 
l2 6 Q E ;IF NO PE: BR 
14 Ol 1 RY 
‘ fears toeros 075477 BIC 475477, R4 sMASK OUT ALL BUT BITS 15,10,7,6 
4 1410 BEQ ERPT7 sIF NO CONDITIONALS SET: BR 
4303 016704 025211 hoy #MSG23H, RY 
4304 1 TTOUTT PRINT CC TAG 
4305 017703 l MOV acc, R3 
4306 2703 1} BIC #177000,R3 sMASK CC 
4307 tte) 1 OCTPP :PRINT CHECK CHARACTERS 
4308 ERPT?: NOP 
4309 020752 100000 157626 ERPXO: BIT 8100000,aSWR § ;SEE IF STOP ON ERROR 
i310 pesthg! 1412 3 Roe ERPX :IF NOT: BR 
4312 020764 Ne 000670 TST PFLG -SEE IF HAVE PRINTED 
4313 020770 001006 BNE ERPX ‘IF SO: BR 
4314 002000 157606 BIT " ‘SEE IF SHOULD PRINT 
4315 1 1s BNE :IF NOT: 
4 1g O21 1 920324 a Ine ERPTO :PRINT ERROR 
eeec 4 
4318 ratye poses 550814 157470 MOV #11,aCl :DRIVE CLEAR 
4319 O21 017704 18750 MOV BAS; RY 
4 1 1 76 MOV RY, OAS sCLEAR AS 
4321 i 1 660218 Rov cir 
4355 1 i e714 990109 B1S8 #8100, (R4) sRESET TRE 
4304 O21 1 S2 157472 MOV S. ace RESET TC 
+ 1 O67 000040 72 ERPX1: BIT #40, ATCI 
+ 1 14 BEO E ;IF NOT READ/WRITE OP: BR 
4327 el TST TMFLG 
4 1 BEQ ERP ;IF NOT TM TIME: BR 
3 SY PREBGRE HESTON 
433) 1102 ERPX2: RTS Bc / t EX 
~ 021104 CADER: 0 ‘EXPT ADDRESS SAVE 
433 OST iiB BORER: 
ie Hie SRvER: : 
423% 1114 FCER: 0 
4237 Celile LRCER: 0 
423@ 021120 CRCER: 0 





TMO2-TU16/TELE DATA ok PROGRAM MACY11 30( 1046) 


DZTUAG.P1il 
4348 SB11oa 
ma} 021126 
43a 
4344 
4345 
ts 
dae 
4349 
4350 
4351 
ize the 
oe BLS 
dace Betise 
4357 1154 
4358 021156 
4359 psi tee 
4360 1164 
4361 Oe2llee 


17-JUN-77 09 





000010 
oo0002 
025047 


000672 


025044 


Paceys 5 


CRCSV: 


000672 FRPRT: 


FRO: 


FREX: 


22-JUN-77 08:44 PAGE 94 


bil $-5-t-$-4-byht-t-tph-teb-b-+-teb bb t-t-5-tt Ft bt-tab-ft-t-b- tt ttt lll 
OR FORWARD/R FOR PRINT SUBROUTINE: 


REVERSE 


S SUBROUTINE IS USED TO PRINT wu THE 


Eu oa OR LRITE, DATA, OR 


UHGGHEHHHHEEHHHHGHEHEHEHEHHHEHEHIHEEE IE ei 


BIT 


MO 
TTOUTT 
RTS 


£10 MTC1 ;SEE IF WRITE COMMAND 
82, MTCL : F REVERSE 
F ;IF NOT: BR 
i 
;PRINT R 
FREX 
eMSG16,R4 
;PRINT F 
PC sEXIT 


SES 0094 
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DZTUAG.P11 17-JUN-77 09:52 SEG 9095 
4363 
4364 5 See EE EAE 0 8 gE A a a a a a a a a a ak 
4365 ; TAPE COMMAND EXECUTE SUBROUTINE: 






= aS EAS Eads BEATE AS 
sSENT 10 . 


FINAL COMMAND 
9 — WITH THE 





er OF & nile NTERRUPT, HOUSEKEEPING 
URNED TO’ THE CALLING 


( I 
RECEIPT OF a tTy INTERRUPT WILL CAUSE THE 
Tee iia ee T]oh OWE FoR 
AT THIS 5 Ry OF ; Ms Stuurs 
ae auth Reitee AES 


Oe aseesaseeetoneneasceacaesrtsuctessuscaeanauseneessees 
000642 TAPG: CLR TEMP 1 


3 


021 005037 
iS 1174 SO 157316 MOV DVN, acs I 
4334 Be eae Ba777 10000 157312 TAPGO: BIT a , 90S eee 
4 lel 000642 INC TEM} IF TIMED OUT 
oe tise Ghee me Serle inep o 
4398 O21 022662 JSR PC T :PRINT CYCLE NUMBER 
4399 fet é 006016 000672 Bit #10, ATC) : IF WRITE OP 
wot 1 eat 024706 MOV ans¢s, R4 F 
O21 104000 Trourt tes :PRINT WRITE ERR 

1 024713 TAPGI: MOV 8MSGb , RY 

{ 021130 js PC. FRPRT PRINT F eo BRR 
4407 Oe] 12704 TAP #SG2s, 
+49 es 104000 = THourT ;PRINT NO MOL ERR 
18 1 020000 157226 TAPG3: Br #20000, a0$ ;SEE_IF PIP RESET 
Sh eis Bee mss ot eee 
44] 1 1 26 MOV 9M5G116,R4 
“414 021306 104000 TTOUTT ;PRINT REWINDING MESSAGE 
44] 131 o20000 157204 1S: 1T , aos 
‘ai i $323 C0002 000672 TAPGIF: ¢ : MTC1 /SEE IF wezve Th 
#416 021326 001003 "BNE TAPE3A :1 


SEG 00% 


FO8 
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z ae S 

= cee - th 

: eb a 5 f 

Reb ye eeb 22 
—_ a « - = aan 
s SE oe y sof dee, BE 
ie ate A 3 a 
2 me ee aS i Sse) BS Op > 
ra] - MU Kur SSS SE ae fea 
. wp WHepnpnpronges By wp Ronse ec ch § 
2s, Biiebinbbettiebt Bd es abtine Be ef 


ne : ioe aaleat 


sz zUS zzchakzZ Sai 


T 
& 

PC 

, ERADOR 
PC, FRPR 
emSG24 
TAPG7 
MTINTA 


5 S 


HHeEE erustibrabseatecd“e-Bes Saeer sabes 


TAPGB: 
TAPG?: 


TAPG: 


1570S2 TAPGS: 
157046 


a 3S a P 


‘a | imigeiae: 
eS eee 


eh A UU SSS eee ear ts heii Acta ATU RN IRN 


Sc Meroe Recon Mc Receem Keer Meco cee Reco Meee Mere Reeee Mle Moen cee Ne Ke oe roee Jroce Iroee recs ees Se SURE OE ee ee ee ee ee ee ee ee eee eee 


SHSSHSHSSSSSSSSSSISSSSSSSSSSSSSSSSSSSSSSSSSAsysy 


erecesssereretrreresstitetitiliisrsisriisissss 


157014 
021670 








GO8 
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DZTUAG. SEG 0097 
4467 
;TTY INTERRUPT HANDLERS###eeeEEe 
44 1608 1 000340 156774 TTINT: MOV #340, 
447 161 ees 156276 MOV aTKB, -(5P) ne at TER 
ay 1614 042716 BIC o ) IP PARITY BIT 
Me 1620 122716 000003 CMPB a3 (SP) i406 SEE IF CONT C 
4474 bes le BEQ TTINT :] Bk 
4475 Oe] 122716 000007 CMPB sé, ( ioiG Rie FOR CNTL G 
4476 O21632 001013 BNE RETURN 
4477 Oelbs4 beer 37 000176 OO0606 CMP #SWREG, SWR 15 SOF THARE SWITCH REGISTER USED 
44 1642 O01 BNE T NO, GET 
ay 1644 004737 024376 JSR PC. CNTG GO CHANGE SWREG 
44g0 021650 o00404 BR RETURN :+:G GO TO EXIT 
1 TTINTO: MOV RO, -(SP) 5446 ROCREC CNTR) 
ques Belees Boos? 013746 Mee OBR TREY oo°ceT STALL VALUES 
me fetes Sere com BEST 
wee Seiees | bopdes A Re funn 
4488 ;MAG TAPE INTERRUPT ORD abe 
oe 3 021666 posed MTINT: NOP 
4491 021670 04 000037 156636 MTINTA: BIC #37, IMR :CLEAR MAINT MODE 
4492 021676 013716 OO0b62 MOV RTRA, (SP) oo GET RETURN ADDRESS 
4493 21702 900002 RTI G RETURN 
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OZTUAG.P11 17-JUN-77 09:S2 SEG 0098 
4494 AEE Ae AE SE AE dd a a a a a a a A a aE aE 
4435 ‘AUTO SEQUENCE 
ue ‘THIS ROUTINE ,ENTERED VIA STARTING ADDRESS 240 
4498 ‘WILL EXERCISE ALL AVAILABLE SLAVES ON ALL AVAILABLE 
4499 ‘DRIVES IN BOTH PE AND NRZ ACCORDING TO THE PRESELECTED 
#500 :TEST PLAN. IF NRZ ONLY, PE TESTING WILL NOT BE ATTEMPTED. 
qene : PeTTTTTTTTT TTT TTT tte TTT ett Ter tt TT 
4503 021704 012704 027077 ASEQ: MOV #MSG108,R4 
4594 21719 104000 TTOUTT ;PRINT NRZ ONLY REQUEST 
450S 021712 012705 000650 MOV SNRZOF , RS ‘SET ADORESS OF FLAG 
#508 021716 012701 000001 #1,R1 SET SIZE OF ENTRY 
0e17¢ 1 1 MOV #1’ : 
4508 el 1 : :SET L LIMIT 
4509 021732 023300 JSR pC’ TTR : 
4510 021738 0 026674 MOV #5G104,R4 
4511 Oel 1 TTOUTT ;REQUEST CONT OR NOT 
ie 021744 012705 gag? HOV BASEGCF , RS i SET ROORESS OF ENTRY 
eeges ’ ; 
wet ps i730 pig7 os 00001 MOV tL’ RE - SET DPeER LIMIT 
4515 021760 012703 MOV 80,R3 -SET LOWER LIMIT 
4516 be 1764 JSR pc’ TTR GO GET “Atrut 
1 1 ASEQO: CLR ABAVN :CLE NUM 
4518 021774 004737 022106 ASEQI: JSR PC, HROS G0 SELECT HARDWARE CONFIGURATION 
4519 022000 012704 026640 MOV #M$G101,R4 
4520 022004 404000 TTOUTT :PRINT DIVIDER 
ibe! S220 e704 026654 MOV #MSG102,R4 
le 1 TTOUTT ;PRINT TMO2 NUMBER 
4523 022014 013703 000736 MOV ADRVN, R3 
3E24 1ouoGe OCTPP sPRINT TMO2 
4e5e ba0n0 meOUTT onmmatts 
4527 eae 000746 MOV 8UN1, RO ‘POINT TO START OF SLAVE TABLE 
4528 005710 ASEG2: TST (RO) :SE E! 
4529 100403 BMI ASEQ3 ‘IF SO: 
we 2 Capos OCTPP ened tee PRINT SLAVE TABLE 
4532 Deeds 000773 ASEG2 D0 ALL 
4533 004737 022312 ASEG3: JSR PC, AMOD1 G0 DO MODE 1(NRZ) 
004737 022506 JSR PC’ AMODe :GO DO MODE 2(PE) 
000736 ASEGY: CMP 87" ADRVN ‘SEE IF DONE ALL DRIVES 
r BEQ ASEOX ‘IF SO: BR 
- ye Reet +B UNTINOE © ‘ 
4539 022074 005737 000742 ASEGx: TST ASEQCF ‘BRANCH IF CONTINUOUS AUTO SEG 
4e40 100 001733 BEQ ASEQO :44G CONTINUE TESTING 
E4) 102 000137 oososy ” IMP TEND +46 GO TO END OF PASS 
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454, 

3 

44 
4545 022106 
Ss Bi 
4548 Oeele4 
33 Bie 
4551 022144 
4552 Oeel46 
4553 O2e1S0 
4554 22154 
4555 022160 
4556 Oeel64 
4557 Oeelb6 
4558 170 
4559 174 
4560 Oe2200 
4561 ? 
oe 
4564 Oeeelb 
4565 Oe2220 
Wee? 022222 
Nees 022226 
= Be 
4571 Oeeede 
4572 Oeeet4 
4573 Oeeesd 
4574 OeeeSe 
ot ee 
3 be 
4578 Oeeeb4 
4579 Oeee7e 
4580 Oece7éb 
2 


ag5310 
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156374 
156366 


156354 


000041 


156266 


005130 


HRDS1: 


HROS4: 


;SUBROUTINE TO SELECT AUTO SEQUENCE HARDWARE ####244% 


Games 
$404 < 


wo 
—_ 
Oo 


gRaseRg 


ZnS Saam 


SISESRABARGS 
M<MD<o-4 ©o v< 


REOTC 
e108 
a0T,R _ 
aOR acs 
HROS 1 
(SP)+ 
#2007, R1 
#140010,R1 
HRDSO 

RUN], RI 
see 
HRDS2 


86, 841 
HROS2 


HRO 
yore eore 


EMP 1 

TEMP! REOTC 
8-1, (RL) 
PC 


CLEAR EOT UNIT CNTR 
; INIT 

: SET DRIVE ane 

HES FOR NON-EXISTANT DRIVE 
"RESET YF nex inFER 

‘GO SEE IF TRIED ALL DRIVES 
‘MASK SLAVE TYPE 

'44G SEE IF TUIG/TEL6 TAPE 
IF NOT: BR 


;SET START OF SLAVE TABLE 
eG BRANCH IF NOY IN CHAIN MODE 
;+4G BRANCH IF NOT LOADED VIA TMOP 


;++G BRANCH IF NOT DRIVE 0 
++G 


446 DO NOT TEST DRIVE O SLAVE 0 
;++G_ IF TMDP CHAIN 


T 
; SEE 4 SLAVE AVAIL FOR TEST(MOL) 


ye 
7 


IF SO: 

;ELSE BUMP SLAVE 

; CONTI SELECTION 

;SEE IF ANY SLAVES 
; IF NOT: 

;SET NUMBER OF UNITS 
;SET EOT CNTR 

s RERM NATE aL Ave TABLE 
;RETURN TO SEG 


SEG 0099 
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OZTUAG.P11  17?-JUN-77 09:52 SEG 0190 
4583 
4584 ; SUBROUTINE TO SELECT NRZ AUTO TEST MODE Seeexeeenes 
ieee + 022312 005037 Oo00654 AMODI: CLR BLCNTR ; ASSURE BLOCK COUNTER IS 0 
1387 bee316 b1¢701 746 MOV UNL RL get TAR AVE TABLE 
721 001700 AMODIA: BIS #1700, (R1)+ SAVE 0 NRZ,NORM, ODD 
4589 022326 005111 COM (RL) 
4590 022330 001402 BEQ AMOD1B :IF FILLED ALL SLAVES: BR 
459 Dee33e 11 COM (Ri) 
45 BR AMODIA sELSE DO ALL 
233 022336 005111 i AMOD1B: COM RI) sess neat tinal 
weed pose nee prbace 000740 MOV aS AGL ahr ee, BLOCKS FOR MODE 1 
HES tee b1e737 74000 DO0sse nov a-1900 FMCNT : = 000 sh 
H = 
Aa ee oe 
LY H 

4600 ABpaae Bosna? 000SE CLR TMEX ‘ASSURE NO. THK 
4601 CLR Int : NORMAL READ 
Maid beet STAUTO ;G0 DO AUTO MODE 1 

16 O1 000560 MOV #10, PATRN ‘SELECT PATTERN 10 
46504 Geeies b04732 JSR PC. STAUTO GO DO PATTERN 10 
4605 1 14 000560 HOV 814, PATRN :SELECT PATTERN 14 
4607 teste O0s737 pees TST NR2OF ;SEE IF NRZ ONLY 
4608 i411 BEQ AMODIC ‘IF NOT: BR 
4609 022450 O61 177777 000740 MOV 8-1, ABLCNT ‘FORCE TO EOT 
4610 O22e456 O01 iSsbe4 4 MOV #153624, RANBAS 
4611 O2e464 O1 1 626 MOV #32561, RANSAV  ;RESET RANDOM DATA BASE 
4612 022472 16737 177777 OO0S6O AMODIC: MOV 8-1. PATRN ‘SELECT AUTO RANDOM DATA 
4613 O22500 904 003372 JSR Pc, STAUTO 
4614 022504 000207 RTS PC sRETURN TO SEG 





KO8 
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DZ2TUAG.P11 | 17-JUN-77 09:S2 SEG 0101 

4615 
#18 ; SUBROUTINE TO SELECT PE AUTO TEST MODE#eeeeeeeee 
4518 : 003040 AMOD2: IST CHNFLG i446 BRANCH IF IN CHAIN MODE 
4620 005737 000650 TST NRZOF : SEE IF NRZ ONLY 
462 1 001057 BNE AMODeX IF SO: BR 
tees 903037 gooesu i$ CLR BLCNTR 7 OCK C 

12701 MOV 8UN1,R1 -SET START OF Seve TABLE 
4E24 overt 001700 AMOD2A: BIC #1700, (R1) :CL LEAR NRZ 
4625 1 002300 #2300; (R1)+ ‘SET TO PE NORM, ODD 
4626 005111 COM (RL) BEE IF END OF TABLE 
4627 001402 BEQ AMOD2B F SO: BR 
428 COM (Ri) 

BR commas 

4630 111 AMOD2B:: COM (R1) 
4eas be8ee0 612737 ponte HAG ABLCN EU AeTO BLOCK CO 

1 000740 MOV #6; ABLCNT :SET AUTO BLOCK COUNT 
4633 022566 012737 174000 OO0SSE MOV #-4000, FMCNT i SET FC = 4000 
4634 beer 16732 og 4 MOV #100, RONT ‘SET REC CNTR TO 100 
1e38 Ge 1 1 HOV 810, PATRN eet PATTERN 10 
ie est p03) reed 000560 #14" PATRN ge ber ATTEN 14 
4039 ae yee aed 000560 ao pt STAUTO ;SELECT PATTERN 15 
4640 pssess pers Ooasre JSR PC. STAUTO 
4641 022640 O1 1 000740 MOV e-1 ABLCNT -FORCE TO END OF TAPE 
Hee 46 bie? 177777 000560 MOV 8-1) PATRN ‘SELECT AUTO RANDOM DATA 
464 S4 003372 JSR Pc, STAUTO 
mo 60 000207 AMODeX: RTS PC ;RETURN TO SEQ 
HE 46 


TMO2- a) Adena ae 7 he PROGRAM MACY11 30(1046) 22-JUN-77 08:44 PAGE 102 
DZTUAG.P11 SEG 0102 


MOV 
PAPRTO: oe ;PRINT PARITY 
TTOUTT ;PRINT FORMAT TAG 


ROR R ;PONTION FORMAT 


R 
S 


See ESS 
8 
3 


4647 
ma | ; SESRSSESAERERRERERARAAS ERASERS AASARRAREASAAREARLERA AES 
443 ;ERROR HEADER PRINT SUBROUTINE: 
4651 ‘THIS ROUTI TO PRINT OUT A HEADER 
52 ‘WITH gERCH Needs WED Ae Wy per PRINT IS IN TWO 
53 * LINE CONTAINS THE FOLLOWING INFORMATION. 
454 iL : abe BYE NO. DENSITY PARITY FORMAT 
46 WHI 
wees : OF cons IN A THES BLOCK Pe ec ee 
wees ‘Plus T arReeTI He ERROR TPE (READ uITe, SPACE, _ 
4650 *ALL NUMBERS IN OE Fe 
wees HIHHHGHHHHGHHHHHBHHGHHEHHHHHH EHH EHH EE 
4663 012704 024764 PAPRT: #SG12,R4 
4664 SS Seee TOda00 MeOUTT PRINT DRIVE HEADER 
4665 022670 013703 OO00SSO0 MOV DVN, R3 
Hobe 74 ,04gde OCTPP PRINT DRIVE NUMBER 
7% O1 024750 MOV 8MSG11,R4 
4668 022702 104009 Trourt : ;PRINT UNIT HEADER 
4e78 058710 bie703 199335 Bee 9053958, pa 
4671 O2°714 1 OCTPP PRINT UNIT NUMBER 
4672 022716 012704 Oebelb MOV 8MSG60,R4 
4673 koxoo0 TTOUTT PRINT DENSITY TAG 
4674 1 oo0sse MOV UDES, R3 
4675 000303 SWAB SséR 
4676 O27 32 042703 177770 BIC #177770,R3 
46 104002 OC TPP :PRINT DENSITY 
4678 O22740 012704 Oebeze2 MOV 8NSG61,R4 
4679 deers TTOUTT PRINT PARITY TAG 
4680 CLR R3 
4681 022750 000010 oposs2 BIT #10, UDES 
Ma o2e766 000001 me OWE 
4684 ‘ 
= cs 
4690 
see t 
46 
4694 PRINT FORMAT 
#€ 024725 MOV eMSG8, R4 
4€ TTOUTT PRINT PATRN TAG 
46 oo0400 1ssss2 T #400, ISWR SEE IE IF RANDOM DATA 
ieee 122 000636 PAPRTA " erent 08 p= ore 
796 3044 14 JSR PL TOG ;PRINT R 
47 oh 023050 BR PAPRTD 
4702 023052 000734 PAPRTB: TST ASEGF :SEE IF AUTO SEQ 


TMO2-TU16/TE16 DATA yt ed PROGRAM MACYL1 30(1046) 22-JUN-77 08:44 PAGE 103 


DZTUAG.P11 


17-JUN-77 


i Gesbe O6737 


REREE 
RRR 





4709 1 

4710 1 

4711 1 

471 110 

oH Ba 

4715 653120 

4716 023126 

47] 12 

4718 1 

pre 023140 

4 023144 

Me 531 

4755 Bsa 

we neat 
i 4 

4 AS31598 

4 172 

4 174 

47 7% 

4 

47 

4 

y 

4 

4 

4 

3 

ne 3 

4740 023244 


i 


0560 


BMI TA 
PAPRTC: MOV PATRN, R3 
OC TPP 
PAPRTD: MOV #SG13,R4 
TTOUTT 
MOV BLCNTR, R3 
OCTPP 
HOV #MSG14,R4 
TTOUTT 
MOV RO,R3 
000672 BIT #10 NTC 
000S62 BIT ‘ , ROCMD 
PAPRT1: MOV RCNT.R3 
TST THELG . 
000662 MP R 
SNe RY 
TST RTYFL 
RP 
per: ie 
ETT shown act #55, 108 
JSR PC ft 
MOV RCAT, 
OCTPP 
MOV 8MSG7,R4 
TTOUTT 
MOV FMCNT,R3 
DEC R3 
COM R3 
OC TPP 
000664 MOV #1, HORFL 
RTS PC 


Beer at are RANDOM 


ie PATRN NUMBER 

‘PRINT BLOCK NO. HEADER 

PRINT NUMBER 

:PRINT REC NO. HEADER 

SEE IF WRITE OPERATION 
IF READ REVERSE 

;IF SO: BR 

;SEE IF TAPE MARK TIME 

‘IF SO: BR 

IF NOT BACK SPACE: BR 

. T RETRY: 

dey NOE CORD NUMBER 

;PRINT RECORD NUMBER 

: LOAD 

: PRINT BASH (- , 

;PRINT RECORD COUNT 


;PRINT RECORD SIZE HEADER 
GET CHARACTER COUNT 


;REMOVE TWOS COMPLEMENT 
: PRINT RE COND SIZE 
i SE! HEADER FLAG 


. 
® 


SEG 0103 


TMO2-TUL6/TELE DATA a PROGRAM MACY11 30( [046) 


DZTUAG.P11 


17-JUN-77 


22-JUN-77 08:44 PAGE 104 


b-b-tet-btviaietptetal-i-igh-toiel-i-bt-}-t-la-tel-l-}-tel-t-iet-hlalalalaelelaialabaleiaiaiaeleiel 
;RANDOM NUMBER GENERA 


THIS SUBROUTINE IS USED TO ere alte RANDOM 


RO DESSEOSAASSSESTTSSSESASEATEAUSEAEEHEENELHHEOEEE 


rn ae 


; NUMBERS REQUIRED 
ADD RANSAV , RANBAS 
ADD RANBAS | RANSAV 
CMP RANSAV, RI 

BHI 

ee RANSAV 
RTS PC 


;GET NEW NUMBER 
j SEE she as TOO BIG 


i 


Ns 


Fe ROMBER 00 SMALL 


SEG 0104 


BOS 
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OZTUAG.P11 17-JUN- 


4759 
4760 


a 


SN 
af 


B 


 & 


S 


inte 


025730 
000020 





© 
N 


000640 


000640 


000640 


000640 


TTR: 
TTRO: 


TTR1: 


TTRIA: 


TTRIB: 


TTRe: 


TTR3: 


TTRY: 
TTRS: 
TINER: 


5 EAE EE 8 ES 8 4 4 4 9 a dd a a a 
;TT SUBROUTINE : 


; Y ENTRY 
Sa Ne Rae Pome piiteD 
pa le Ween pa a 


ee as REE bus 


(a SIX (6) CHARACTERS AND 
LESS THEN SIX BY TYPING A 


FOORIAGE TET seaniemidaeetanlasaie 
CLR peri ;CLEAR FIRST CHARACTER FLAG 
CLR 


TTINN :60 CHARACTER 
CMPBOtiékd‘S; TI +46 F CR 
BNE TTRI IF NOT: 
S TEMP 1 ‘SEE IF FIRST CHARACTER 
BEQ TTRS IF SO: 
T +46 EL LOAD 
CMPB OtéwGO, TIB +46 SEE IF CHAR IS LESS THAN O 
BLOS TTRIA ‘IF NOT: BR 
BR TI 3+4G eLae GO T 
CMPB 4Otsé«s7#0), TI :+4G IF CHER IS GREATER THAN 7 
BHI TTRIB -IF NOT: BR 
BR TINER +46 ELSE GO TO 
Inc T :SET FIRST CHARACTER FLAG 
Bat RO ;SHIFT 3 LEFT 
BIC #177770, TIB ; STRIP fScll 
BIS TIB, RO 
me tng, Ee 
C RO F EXCEEDED MAXIMUM LIMIT 
gb °S TTR te RROR 
CMP RaNeG ; SE ig "Fae €9,79, 8 MINIMUM LIMIT 
BLOS  -*‘TTRY -IF NOT: BR 
BR TINER :+4G ELSE GO TO ERROR 
MOV , (RS) ;LOAD VALUE 
RTS Cc H 
MOV #MSG43,R4 
TTOUTT PRINT 
SUB #820, (SP) tRESET "sp TO START OF VALUE ROUTINE 
RTS PC ‘REDO VALUE ENTRY 


SEG 0105 


CO9 


-TUJ6/TE16 DATA IABILITY PROGRAM MACY11 30(1046) 22-JUN-77 08:44 PAGE 106 

potane Pf ated Babs SEG 0106 
4810 
4811 ;TTY READ SUBROUTINE #eeeeeeene 


4818 
144 TTIN: TK 
Weta eet 188977 teeta Hi: Me = Stee 
wee B73? 55134 000640 Ay EN re 
‘Bi? es apdeds 000640 vine BIC 200, T18 +446 STRIP PARITY BIT 
4819 6534 8 Loa375 BL e 
4820 023474 11 000640 155114 MOVE TIP. aTPB 
1 Oe3S02 000207 RTS 
— sTTY OUTPUT SUBROUTINE S#eeeeeeeeee ‘ 
4825 029504 112437 000636 TTOUT: MOVB  (R4)+,T0B 
486 10 ie 000043 000636 CMPB)Os«wt43,, TO 
023516 001444 BEQ TEX 
4828 000045 000636 CMPB Osaw45,, TOB 
ese tees 000041 000636 Pepe teat 
we CON73? 023614 eh opehiaeee- 
en few tut 
il 000015 000636 ‘TCRLF: MOVB #15, TOB 
4835 023554 023614 JSR , t0G ; 
MOV R3 
TCRLFA: CLR 
14 ISR PC, TOG 
4839 005303 DEC 
4840 001376 BNE TCRLFA :D0 FILLERS 
484] il 000012 000636 MOVB sie, T0B 
4wB42 023606 004737 023614 JSR toG 
4843 023612 000734 BR buT 
Sue 4y | 154774 TOG TSTB TPS 
dese besee0 ibars BP FG 
4847 11 000636 154766 MOVE  TOB, aTPB 
4eug TEX: RTS PC 
4e49 OL TBELL: MOV 82,R3 
} 000636 TBELA: MOV 87" TOB 
4851 44 004737 023614 JSR PC’ TOG 
4852 023650 005302 DEC R3 
483 De265¢ 001 } BNE TBELA 
4854 023654 ited BR TTOUT 
4pES 
48EE 
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DZTUAG.P11  17-JUN-77 09:Se SEG 0107 
4857 SOCTAL OUTPUT SUBROUTINE s#ssastxstatses 
wees 023656 005037 024110 OCTP: CLR OFL ;CLEAR FLAG FOR LEADING ZERO 
se) be soes big7a? p00001 o24110 OCTPE: Rov 6 ,OFL 
1 OCTPEL: MOV R3,R4 ;SEE IF NUMBER IS ZERO 
4863 74 BNE octPo ‘IF NOT ZERO: BR 
e: iggy or o 
4866 023704 004737 024070 JSR PC OCTPG1 -ELSE PRINT ZERO 
4867 063719 bogs BR octe :+4G SPACE AND EXIT 
1 100000 OCTPO: BIT #1 WR4 : SEE = 1 
4868 be3716 001406 BEQ OCTP1 ‘IF NOT: BR 
b1e704 000001 MOV 81, 
4871 023724 73 O46 JSR PC’ OCTPG :PRINT 1 
4872 023730 000137 023742 sats iN octPe2 
m6 sae 024046 JSR PC, OCTPG :PRINT 0 
4875 tein 010304 OCTP2: HOV : 
Me eae ROR ORS 
e73 023750 006004 ROR RY sPOSITION DIGIT 
ries SWAB 
4881 tea7es 737 O24046 JSR PC, OCTPG PRINT DIGIT 2 
4882 023762 010304 nov 
os ime Heo Sf 
4BBS 004727 024046 JSR PC, OCTPG :PRINT DIGIT 3 
=) Bin Wem 
4639 104 ROL R4 
4889 SWAB ORY 
4890 O24046 JSR PC, OCTPG sPRINT DIGIT 4 
4891 Oe4010 O1 MOV R3/R4 
4892 le ROR RY 
wecs 14 ROR RY 
Eis 006004 ROR R4 
0047 37 024046 JSR PC, OCTPG 
10 MOV R3;R4 4 
a9 D244 JSR PC’ OCTPG sPRINT DIGIT S 
127 poge40 000636 OCTP3: MOV #240. TOB 
3614 JSR , 106 :PRINT SPACE 
RTS PC sEXIT 
os 177770 ocTPG: BIC 8177770,R4 
001004 BNE OCTPGO 
024110 TST OFL 
3905 1 Bie OCTPGO 
T PC 
ants OTe ATs «= eokO. RY 
4998 ” MOV RY, TOB 
Big tee Ba mh Re 
4910 1 MOV R3, 
4911 i RTS PC 
4$i2 O24110 OFL: oO sFIRST CHAR FLAG 





TMO2-TU16/ 

DZTUAG.P11 

4913 

4914 

wale ll2 DOUT 

ual? 118 OL 10 

4918 1 ll 

4919 ise i 1 DOUT1 

aS ie Bee om 
1 

4924 1 4 000061 154440 

a ee 
1 137 DOUT3 

Po Esiies 

4930 ' 

se fee to 

Geis 

4935 216 

4936 OeYeee 

4937 

4938 

4939 

4940 SNPT: 

4941 

wag 

Ga 

3 

4948 

4949 

4950 

4951 

4952 

2 

49E0 OO0E36 SNPC: 

se 

4 





Rate 


: 


| 
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;DATA CHARACTER OUTPUT SUBROUTINE ###eeeeeeeee 


CLR TOB 
MOV 810, R4 :SET NUMBER TO PRINT 
MOVE -«R3, fOB 

TSTB = @TPS 

DOUT1 

I , T0B 

S T 5 ++G 

BPL NOUT2 +46 

MOV 8061, aTPB 

BR DOUT3 

MOV 8060, JTPB 

ROL T08 

DEC RY 

BNE DOUT1 

RTS 

MOV TEMP3,R3 

SWAB 

JSR PC, DOUT 

MOV TEMPS, R3 

JSR , DOUT 

RTS PC 

5446 TUI6/TE16 SERIAL NUMBER PRINT SUBROUTINES###### 
MOV R3,R4 

SWAB ORY 
ROR RY 
ROR RY 
ROR RY 
ROR RY 
JSR PC, SNPG :PRINT FIRST DIGIT 
MOV R3;RY 
SWAB. 
JSR PC, SNPG :PRINT SECOND DIGIT 
an R3,RY 
ROR RY 
ROR RY 
ROR RY 
ROR RY 
JSR PC, SNPG :PRINT THIRD DIGIT 
MOV R3, 
JSR PC; SNPG ;PRINT FOURTH DIGIT 
RTS PC EXIT 
MOV 708 ‘SET NUMBER BASE 
He ee 
é PC’ TOG :60 HOOP 
RTS PC : RETURN 

: CHECK Si TCH REGISTER ROUTINE. CHECKS FOR 1G TO ALLOW CHANGING 
:CALL I$ BY WAY OF CKSWAR 


SEG 0108 
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OZTUAG.P11 17-JUN-77 09:Se2 SEG 0109 
4359 “LOCATIONS USED: 
4 024326 000000 TEMPST: .WORD 0 
sare ere 8 
000176 000606 CKSWR: C SURG, SHR {SOFTWARE SWITCH REG PRESENT 
4974 il BNE OUT GET OUT 
1 154240 ISTe TKS ive WAIT FOR 
GET oetPRACTER 
1 154234 000640 MOV aTKB, TIB ‘AND STRIP 
4378 1 000640 BIC #1 ,TIB tT 
000007 000640 CMP #7, TI8 sIS IT A'<tG> 
eh 
1 027403 CNTG: MOV TG,R4 
1 TTOUTT 
4383 0 027407 CNTLU: nov 8SMSWR, RY 
19 1 TTOUTT 
4938S le Ol 154170 MOV ISWR, RI 
4986 Oe4416 004737 023664 JSR PC, OCTPE 
0 027416 MOV SSMNEW, RY 
TTOUTT 
024326 SREAD: CLR TEMPST 
4990 3 012737 000007 024330 MOV 87, COUNT 
ee Bees IEP occas ooo Ste" wes,ria FR teres 
4993 Oe44S2 001001 BNE : ; BRANCH IF 
ee peaaee 1 000015 000640 3 Bre ais rie Fg IT A <CR>? 
13% COW4EY BNE 4 : BRANCH 
1 999200 024332 MOV ROSW 
1398 10 - MeOUTT siesta sett 
000007 024330 CMP 87, COUNT ;WAS IT FIRST CHARAC 
BNE 7§ :CHANGE SWR IF NOT FIRST ONE 
BR OUT GET OUT 
5003 000060 000640 4s cHPE 860, T18 
2ooe 5 000067 O00640 CMPB 40s«&#67, TIB 
5006 BGE 6$ 
5007 0 025730 ss HOV . #MSG43,R4 
2508 BR # ;START OVER IF NOT LEGAL CHARACTER 
10 6$ ASL MPST 
1 ASL T 
1 TEMPST 
501 14 000640 BIC8 ©: 860, TIB :GET NITTY-GRITTY 
5014 024326 TIB’ TEMPST 
a0 ; 4 guAT ;ONLY WANT & OIGITS 
501 000717 BR is 
024326 153774 7%: MPST, aSWR ; CHANGE WITCH TcH REGISTER CO CONTENTS 
OUT: RTS : RETURN 


;HALT HANDLER##seeeeeee 


STOP: T 
OREURR ;CHECK FOR CONTROL G 


2 


8 
© 
“N 
wD 
~ 
w 
wv 
o 





SSNs 
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5025 

2558 ; TRAP HANDLER ## iia tt ttt tt 

ane Oeubee 016677 poo0d2 153754 TRAP3O: MOV pe aPSW T PSH 
11666 00000 MOV 2(6) ‘Pear RETURN ADDRESS OVER PSW 

3031 Seve 34 162716 000002 :SUB. 2 FROM RETURN ADDRESS 

40 013646 MOV sess, -(6) 

2033 Devote Dee? 18 120650 grey E- 194000, asp UBROUTINE STARTING ADDRESS 
l MOV G0 TO siiseou INE 

5035 024650 023504 TABLE: TTOUT 

ie ies Ben Se 

5038 56 024614 STOP 

5039 024660 023440 TTIN 

5040 104000 TTOUTT= 104 

5041 104002 OCTPP= 

64 104004 CKSWRR= 104004 

504 104006 STOPP= 

soe 104010 TTINN= 104010 
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DZTUAG.P11 17-JUN-77 09:52 SEG O111 
sERROR MESSAGES#eeeeeeeeee 
O24662 O420S2 020105 O43 MSG1: .ASCII /#DE &/ ° 
OWS 035507 O21440 MSG2e: .ASCII /xG; 8 
024674 041045 020073 O43 MSG3: .ASCII /%B; &/ 
OYS 047103 O2l44O MSG4: .ASCII /XCN # 
024706 OS34S2 020105 O43 MSGS: .ASCII /#WE 8/ 


024713 OS2 O42S22 Oel44O0 MSG: .ASCII /#RE 8” 
024720 0510S2 Oe0le3 O43 MSG7: .ASCII /#RS #/ 
72S OS2 O40520 051124 MSG8: .ASCII /#PATRN #/ 


043 
024735 bas 047123 020072 MSG9: .ASCII / SN: #&/ 
024743 OS2 O42523 O21440 MSG1O: .ASCII /#SE s/ 
452 040514 O42eS2e6 MSG11: .ASCII /#SLAVE NO. #/ 


and O44S22 O42Seh MSGl2: .ASCII /Z“DRIVE NO. #/ 
027117 O21440 
025045 


025000 047102 O21440 MSG13: .ASCII /%#BN 8/ 
O2S006 051052 Od20116 O43 MSG14: .ASCII /#RN #/ 
Hague cone ceo O20040 MSGIS: .ASCII 7%! BAD RECORD%%#/ { 
025026 O41040 O42101 051040 
hae ain g 051117 022504 
025044 043040 043 MSGl6: .ASCII / Far 
025047 O40 021522 MSG17: .ASCII 7 Rav 
020041 O4750S 020124 mSG20: .ASCII /! EOT NO: #/ 
047516 020072 043 


e3s 711 oi i MSG21: .ASCII /ZINTERCHANGE READ = 8/ 
2101 


SEGRE IEE URNS RE RSS Iola SS SSOR CERT ERY PUMA See 
vy 
32 


111 O42514 MSG22: .ASCII /%!PILLEGAL BOT: HALT%s/ 
020114 o47502 
¥ 35124 044040 O46101 
$101 O43 
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DZTUAG.P11 17-JUN-77 09:Se SEG Clie 


025137 O4S 051503 020061 MSG23: .ASCII /xCS1 #/ 
025144 043 

025145 OYS 041527 O21440 MSG23A: .ASCII /“WC #/ 
025152 O4104S 020101 O43 MSG238: .ASCII /%BA #/ 
025157 OYS O41506 O21440 MSG23C: .ASCII /“FC a 
025164 O41445 031123 O21440 MSG23D: .ASCII /xCSe2 #/ 
025172 O4204S 020123 O43 MSG23E: .ASCII /Z0S #/ 
025177 O4S 051105 O2144O MSG23F: .ASCII /ZER #/ 

O2S204 O4044S 020123 O43 MSG23G: .ASCII /“AS #/ 

025211 O4S O45503 O21440 MSG23H: .ASCII /%CK #/ 

O2S216 O4204S 020102 O43 MSG23I: .ASCII /xDB #/ 

025223 OYS 051115 O21440 MSG23J: .ASCII /“MR #/ 

025230 O4204S 020124 O43 MSG23K: .ASCII /ZDT #/ 

025235 OWS O41524 O21440 MSG23L: .ASCII /xTC a 
O2S242 445 020116 O43 MSG23M: .ASCII /XSN &/ 
025247 OYS 047041 020117 MSG24: .ASCII /%!NO INTERRUPT“8/ 
025254 04 
es 
025314 
025320 
025326 
pees 


MSG25: .ASCII /%!NO MOL: HALT%8/ 


O4S OS1104 OSO117 MSGe6: .ASCII /ZDROPS: 8/ 


pee] 041511 OSiS13 mSG27: .ASCII /XPICKS: #/ 
0200 3 


Marta tartar tal tarta ta tata tata ea eee tala eat eae taltalealealeal eal talealealeal tala tal tal ealeal tal 
0 +0 = 0-0 <8 = b+ OO 2 b= 2 B= 0+ b= B= 0-2 B= = b= = BB FB Bb 0 OB bs = 2 bs 0 2 Bo b= = b= B= = Bo BF B= = b= 0 
NOES SEA ESE SERIRROR SRI UANVENO MSS GRITS eRIRREER 


eae 3 MSG28: .ASCII /%#/ . 
ie O30115 MSG30: “ASCII °%XTMO2-TUIG/TELG AUTO SEQUENCE (DZTUR-G)x8' +46 

144 
ig 
132 
5 02245 | 

105 sd O45 ¢ MSG31: ASCII] ‘%XTMO2-TULG/TEL6 DATA RELIABILITY TEST (D2TUA-G)%%e"; +46 
O26420 S208? O3060s O2c0Ee 


SEG 0113 


JO9 
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a pose 09:Se 


DZTUAG.P11 


-ASCII /ZSLAVE NUMBER = 8/ 
-ASCII /“PATTERN NUMBER = 8/ 
-ASCII /ZENTER STALLS“READ = 8/ 


-ASCII /“WRITE = 8/ 


-ASCII 7/%?%8/ 


MSG36: .ASCII /%CHARACTER COUNT = #&/ 
z MSGH4: .ASCII /ZENTER YOZZLE STALL = 8/ 
l 


MSG37: 
MSG43: 


uy one 


ae a be a wee 
tie a i sa ee fae = Gi dls 
Sfeas cea dE gas 2d “azmemeees Os De 
ae 


RABZSIZSSLSSORRACRRARRR Samm h wooo Maemo ao 


Soe eet Meet Reeee Reme Reee Roem Kame Kate Reon Ramm Kaen eae Reet Roo Name Reem Rane eae Ieee Denn Ln ate Remme Ream Roam Rate Roe eee oe Roe ot a eo eo eo oe oe ee ee ee 
USVELVASVESVASVASDASPASDASDLSDASDASPASDASDUSDASDASDASDLSDASDESDASDASDASDAsDASDAsAsDEsD 


eSe6 = MSG3e: 
ite MSG4O: 


1 
1 
1 
043 


051117 MSG3S: .ASCII /“RECORD COUNT = &/ 


O44S22 MSG34: .ASCII /“PARITY = &/ 


021440 


; Behaee MSG33: .ASCII /“DENSITY = #/ 


Eas 
O42Se4 MSGY1: 


04, 

04 
_ iai gus 20116 MSGH2: ASCII /XTURN AROUND = 8/ 
036 


ened 


ete ougect psi 105 oa MSGS: .ASCII /%ERR AMT @/ 


aaa 





-TU16/TE16 DATA IABILITY PROGRAM MACY11 30(1046) 22-JUN-77 08:44 PAGE 114 
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025775 OWS O41S506 O21440 MSGYE: .ASCII /Z“FC a7 © 
020101 O43 MSG47: .ASCII /XCA #/ 
MSG48: .ASCII /%!NO BOT ON REWIND: HALT%#/ 


RKKR 
NOUIE 
i ke | 


in 


Or-e or 


047516 O20124 MSG49: .ASCII / NOT AVAIL a7 
1 020114 
111 sate MSGSO ASCII / ILLEGAL DRIVE TYPE #/ 
114 1104 
i ia 
04 itd mMSGS2: .ASCII /%ZDRIVE NUMBER = &/ 
Rae 111 
036 021440 
051117 7 MSGS3 ASCII /“FORMAT = #/ 
O42S27 OS2040 MSGS4 ASCII /#WE TM#/ 


O46524 MSGSS: .ASCII /#SE TM#/ 


020105 

046524 043 MSGSb: .ASCII / TMe/ 

obit O26516 MSGS7: .ASCII 7 NON-EXIST SLAVES? 
i 

1 

1 

1 


1 
rata ae: -ASCII /XCRC #/ 
1 : Fat JALRC &8/ 


: 7*#D 8/ 
wraps: oak 7*#P 8/ 
$ J*F 87 
Bie 10} 3511 MSG64: .ASCII (7¢ORIGINAL ERROR#8/ 
tli? 1 
0521 OS4S22 MSG6S: .ASCII /“RETRY: #/ 


peas yer MSG66: .ASCII /#!SE RTRY #7 


051105 051501 MSG67: .ASCII /#!ERASES/ 


aca aaiecr ahi ee a a ea a an RR pI 


051105 053105 MSG68: .ASCII] /“REREV: 8” 





& 
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Rg 


042520 MSG69: .ASCII /%TAPE MARK = 8/ 
, ove Osiioi O2bri3 
as76 020075 043 


MSG70: .ASCII /%!NO DRY FROM REWIND: HALT%#/ 


2 
2 
ag 


aa 
2 oN 
age 


7 MSG100: .ASCII /%!!END OF PASS “#/ 


[a 


SFeReeREER 
PRR 2 
Ea? 


MSG1O1: .ASCI] /“eeeeeeeeene/ 
il MSG102: .ASCII /#TMO2 8/ 
OS3101 MSG103: .ASCII /#SLAVES #/ 
MSG1O4: .ASCII /ZAUTO CONT: #/ 


44 
AFL 


ee 
026334 
a ae 
5378 026366 022524 043 
5879 Be aig a ete MSG71: ASCII / NON-EXIST DRIVES/ 
1 1 1 : 
eal 414 1108 10s OMB12? MSG72: .ASCII /“REFUD: w/ 
S23 Oes4e2 020072 043 
Seay 264 O45 052127 OS110S MSG73: .ASCII /“NTERR: #/ 
se85 CebHse 0361 l 
pees Oeb4% O51 S05 OS1S11 MSG74: ASCII /“REGISTER START = #7 
5288 Bei) Os0124 feats 
eSeq Geesed Ons 
5290 26461 04S ON2GA 052103 MSG7S: .ASCII /XVECTOR = 8/ 
Hob 051117 G36440 Cel 
051105 053105 MSG76: ASCII /“DEREV: 4/ 
5294 O26 O45 42504 053506 NSG77: .ASCII /“DEFWD: #/ 
5295 26512 035104 021440 
Bee 16 O47516 ObS1b MSG7B: ASCII /%!NON-RETRYABLE WRITE ERROR: ER #/ 
5298 Mel O3016s S113? 
5299 26540 OS2111 0201 
5300 GebsHe Ou7s22 035) 
oH O47117 MSG79: ASCII /%tNON-RETRYABLE READ ERROR: ER &/ 
1055 0521 2 
10 
1 
1 
a 


eS es 

WDNOU 
RAVE 
bs te ee 
— 


/7RECOVEREDS/ 
/#!!BAD TAPE OVERFLOWS/ 


= 
¢ 
wrY 


SRR 
aaese 3 
Be 
FR 
BR 


=o 
g 





3 
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te} 587 MSGIBA: .ASCII /“REWIND TAPE; RESTART AT BLOCK ONES#/ 
Geeree uelit Gasteo 


oS 


RRZ 


23 
SRN 
zi 


SIRRBL 


4 


MSG107: .ASCII /%!!UNRECOVERABLE BAD SPOT/ 


~_ 
a bebe he 
— 
=n 
SSS 
= 
SRe 


-ASCII /XBAD RECORD LEFT ON TAPE%#/ 





MSG108: .ASCII /“NRZ ONLY: 8/ 


——e 


222 
= 
R 
ee 
15 Sc 


MSG109: .ASCII /#!!POSITION LOST IN RETRY#/ 


bes 
es 
N 

he 


050123 MSG110: .ASCII /%SUSPECT BAD TAPESs/ 
040502 


8 
? 


See 
GHAGLR 
f 


MSG111: .ASCII /“REPEAT: #/ 
104 MSG112: .ASCII / BAD TAPE SPOTS%#/ 


ae PELLET ES ERR SEER? 
SSSR ARESEE ERTS 

a9 

a 


MSG113: .ASCII /% SOFT: &/ 


: 
R 
. 


sta 


é 


051101 MSG114: .ASCII /% HARD: &/ 


iS 
sais £3 59 Miaeszsnae ete 
i 


MSG11S: .ASCII /%!!HARD READ ERRORS/ 


ee bas 
os 

—TR 

fe be Ee 
-00 
be ee 


MSG116: .ASCII /%!UNIT REWINDING: TEST WILL START AT BOTs/ 





124 
1 1 
1 
4 
S24 
117 mSG120: .ASCIT /“RENOVE THOP FROM UNIT UNDER TESTicn/ 
11 
il 





BP ULe TELS, DAT 


é ae mM: EES uxt ilk 


042516 036527 SMNEW: 
MCRLF : 


= 
i- 


ay See 


000001 


WDATA: 


RDATA: 


-ASCIT 
-ASCII 


-ASCII 


NO9 
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/44G8/ 

/7SWR= &/ 

/ NEW= 8/7 

740/ 
;WRITE BUFFER 
;READ BUFFER 


SEG 0117 


B10 
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SEG 0118 


srs 99 7 AOR alarm YonacpEISRE |) 
88888888 8550566000885 oa a Bacco 
~ 
5 


SSW ¥ SSrorwmz niin _ re 
SRREEREE deka sndiog, sebEee Se leneineen si eE toc oSs.< 


Sire ee eat RE NAS Ea ee ee ee ere STE Aa aed 
ES SE EI EE IT a a ee Sa SR 
a pee AY 


-erum gece Blokes He be 
EE CEREEE EEE. -cSSBBEnB Somm,  SOO0S, sof SSOP REraE? 





1 
ie 
14364 
14416 
NeS3 


SEES SSS ners cay See 


TARA KAAERRRARRR ORR EERE 
RossscssosacuSscasoseseSssssessass 


a PoS Beau s2od Satins FoR. FR monk x28 
i (coed eee eel seed sell ol ced Seed cee eel eed Seed eel Sued Sod sell end edd dS el a ae 


FEFSITISSSSS SES SESS SE SSESaSaasasams 


sae ar oyun ere 
5 Sas Siccdcaccssss 


ebieicbesconcnes 6 Feige wcsw. — 


17-JUN-77 09:52 


a ee eee ee 
fetta dearer eeemoethert 


C10 
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SEG 0119 


soooobooopoocoas Se Seen peas fan pan foun fam bam pan bam bam dam pam fan bam bon bon bon bon Fax ben bon bon bon Do) 
QO OO OOOOWNOHOWOOOOOOOOOWOOHO0800000000000 


SASS SOU GSTS anuaaaid acc OCeM aRReeRmeMC ar agar reer 


am AMDvoOwnu. 
ums 


eS ee 


gieceeegts mBo0-— a Qu5Feerr rere 
SEE SEEEEES GEE SS Juscoesosaiical lai eeeiemtemocssscss 


ae 


SSSGEASS GNSS SSE cNcocct Mes MA eecercr cae 
rere 
fF 


Wea UN TNO @ i > SOe-uozt OLD 
7 ponpuoruer to sb itet j RpRnnnneees. 


PAPRT Te 
PAPRT 


BS Fei 
2, RR nD iii 


OCTPG 
OCTPP = 
OCTPO 


eat 


1 RRA NN NIG 


Filer cede Sener eae CE ae RR 


atntn 


* ae 
See 
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DZTUAG.P11 17-JUN-77 09:Se2 SEG 0120 


S 

WTER7 
Si, OR, RTE, RR ne 
OT3 TAL poser TEMPST O24326 TTRIA  Oe334e WTM 006024 
REOTS BoN300 TALL 000642 TTRIB 023354 WTMO  O06066 
peor? eps TART oostee Tepe 44 TT 3404 WTM1 006130 
Q TARTA 1 T 46 TT 412 WT 006140 
REOT? QOSOO6 STARTB 164 T erg TTRY Oe34e0 MT 006150 
TART 1 TEX 36 TTRS ee WTM4 006230 
tn ane il 
me oes 0 ee SO e fe 8 ee 

RRHARD TART bosa2 TINPA 153¢5 UNe 000750 W3 
2 en a no 
RSEX 007526 rare Bat Eat UNS 000756 ye 005766 
S fs fame He tet i web 8 Bee 
Se be i eee HIE Et a nn eS 
RSFR1 STARIA OC3444 TINPOB 013012 VECT QO00S46 - ¥OZ 011246 

1 
a a an ns a we 
ix 

5 10366 T 120 WEX yozc. 011342 
FSR 20 STAM O0 Tinel 013136 WRITE  Q0S474 vorco 11438 
a a a 
RTRN T 4 T 1 WRT 007010 YO 011474 
RTYFL 00071 2TOpP = at TINPeC 013376 WRTSB1 007024 YO 011576 
RTY1 001050 STP OoOde TINP3 13416 WRT 007034 YO2D1 OQllb2e 
RTYe 001052 STPX 2s4 TINPY 3746 WRTSB3 007110 YOz2D2 911570 
| a a a CS 
RTYS 001060 SRE 1 TMEX 000564 WRTYTM 006362 YOZE 011626 
oe 06lUel eC ee 
RTY8 001066 TAPGO be iz02 TOG 023614 WR 444 YO2ZG 011754 
RND ed ted TAPG iste TPB 16 WRTY2A peeel0 YO 012020 
RWNOA 144 T 1 TPOS 14124 WRT YB YO2ZI Q12e004 
i en On a 

1 005254 T 1 T WRTY4 SCNTG 
Pes 0U CL 
T aes TTINN = ty 1 SMSWR 027407 
Artie 005364 T 1320 TTINT 1602 000574 SREAD Oe4430 
TAPGY 1510 TTINTO fs 6S¢ WTER} ee $svPC = 000034 
we ie me BF Hy & tes Site : ea 

ae RFL TAPG 051876 T10UT 350 HiTERY 901076 
ne ee i eT 


8 
8 
F 


wn 
© 
w 
rr) 
+4 
+ 
o 
© 
© 
ao 
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ERRORS DETECTED: 0 


SEG Ciz1 


Ime: 5 10 .8 SECONDS 
RUN-TIME RATIO: 180/16=10.8 
CORE USED: 6K (11 PAGES) 


F10 


